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SYMBIONT Symbiont communication 16-Sep-1984 90:30:18 AX=-11 Oh fegeie v4. 
14-Sep-1984 12:37:15 JOBCTL.SRCJSYMBIONT. 


AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 
MODIFIED BY: 


V03-016 JAK0232 JA Krycka 31-Aug-1984 . . 
Ensure that the display of the error message associated with 
a symbiont deletion error message is not inhibited. 


v03-015 JAK0228 _ gd AKrycka — 30-Aug-1984 
Temporarily disable the pausing of a output queue upon 
processing an operator request message. 


V03-014 JAKO220 J A Krycka 18-Jul-1984 te 
support SJCS_PAGINATE at the queue level in addition to the 
re) 


zg 


and file levels. 


V03-013 JAKO219 _J A Krycka 17-Jul-1984 
Track changes in JOBCTLDEF.REQ. 


: 1 001 MODULE SYMBIONT (ZTITLE ‘Symbiont communication’ 

: ¢ Oe IDENT = *VQ4-000' 

; 00 )= 

; 4 004 BEGIN 

: 5 Bape 1 

: $ BOS } PR RARE RE EA AERA E AAA A EAA A AEE ER AEA EEE EAE A EAE AATA AAA E KAA E RATA AARA RARE ee 
; Hid 

: 8 Boos 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 9 009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 19 Boi 9 : ;* ALL RIGHTS RESERVED. * 
: H * 
: \§ BRt¢ 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
£31 a 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SU LICENSE AND WITH THE * 
; 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
BS, 0015 1 !* COPIES THEREOF MAY_NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: i Bete : 1* TRANSFERRED. * 
: ie * 
eS. 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $4 bos) : :* CORPORATION. * 
2 if * 
; $8 003 1 i= DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
> dh 024 1 '* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
> 25 0025 1 is . 
> 26 0026 1 ie ® | 
: 27 D027 1 Seek eee eee eee RARE EERE EERE EEE EERE EEA EERE REE EE AEE 
> «68 0028 1 

; $3 S94 } foe 

: 0 0030 1 ! FACILITY: 

oe) 0031 1 Job controller. 

Bes OO3¢ 1 

3 2 0033 1 ! ABSTRACT: ; 

; $e Oped i This module contains the routines that communicate with symbionts. 

i 2» 0036 1 ! ENVIRONMENT: 

irae 0037 1 VAX/VMS user and kernel mode. 

 - 0038 1 !-- 

; (9 9 1 

: 40 01 

; 41 1 7 

3; O& ¢ 1 

3 43 1 

; «644 4 1 

; «645 , 3 

: 46 6 1 

; oF r ¥ 

: «648 8 1 

; «649 4 

Be 01 

3 2 1 : 

; 38 g 1 

er} 4 1 

ee , 3 

; 26 6 1 

re 4 


ee 


SOOoooOooooSeSooo 
DPA AAAI ES BS EE 


seh 


$ 0 

3 38 §38 
; & 060 
; 3 061 
.* = bo¢ 
; © 06 
: 666 064 
+> 0065 
; 66 Boe8 
ae 067 
3 o8 R208 
3 0 809% 
. . 0071 
.. 8 4 
FEF : 007 
3 74 0074 
es 0075 
2) a 0076 
Be ej 0077 
on 0078 
; 0079 
: 80 0080 
:; «6881 0081 
; 8&8 008 
wee 008 
5; 0084 
; 65 0085 
;s 0086 
; ww 0087 
: 688 0088 
; «6889 0089 
3 90 0090 
; (91 0091 
; 92 009 
; 009 
; 94 0094 
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V03-012 JAKO206 J A Krycka 06-May-1984 
Conditonally request "tises dump for symbiont process. 


v03-011 GRROO11 Gregory R. Robert 19-Apr-1984 
Enable image dump for symbiont process. 


v03-010 JAKO200 15-Mar-1984 
Add I10$M _NORSWALT a Krycke modifier to mailbox write. 


V03-009 GRROOOS egory R. Robert Sepa 
Remove GRROOOS nat is already RE = J BUTLDEF). 


v03-008 GRRODOS ry R. Rober 26-Sep-1983 
Fetch symbiont definite ons directly from LIB. 


v03-007 MLJ0118 Martin L. Jack, 23-Aug-1983 
Change field names, track symbiont changes. 


V03-006 MLJ0115 Martin L. Jack, 30-Jul-1983 
Changes for job controller baselevel. 


VO3-005 MLJ0114 Martin L. Jack, 23-Jun-1983 
Changes for job controller baselevel. 


V03-004 MLJ0113 Martin L. Jack, 26-May-1983 
Changes for job contratiae baselevel. 


V03-003 MLJ0112 _. Martin L. Jack, 29-Apr-1983 
Changes for job controller and print symbiont baselevel. 


v03-002 MLJ0110 3 Martin L. Jack, 18-Apr-1983 
Correct failure to set stopped state in STOP_SYMBIONT_STREAM. 


V03-001 MLJ0109 artin L. Jack, 14-Apr-1983 
Changes for job seokentiie baselevel. 
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O ba SH 


V04 

: a7 99 $ ! REQUIRE ‘'SRC$:JOBCTLDEF'; ! Job controller definitions 

; 299 11 § 1 

: 100 11 1 FORWARD ROUTINE 

3; 101 1140 1 PERATOR_REQUEST_ACTION, 

; 10¢ 1141 1 OPERATOR-REQUEST: NOVALUE, 

; 10 1166 1 END_SYMBIONT_ MESSAGE NOVALUE, 

; 19 1143 1 START_SYMBIONT_TA NOVALUE, 

3; 105 1144 1 TOP_SYMBIONT_TAS NOVALUE , 

; 196 1145 1 PAUSE _SYMBIONT_TAS NOVALUE, 

; 10 1166 1 E_SYMBIONT_TASK NOVALUE , 

; 108 1147 1 START _SYMBIONT STREAM, 

: 109 1148 1 TOP_SYMBIONT ST NOVALUE, 

3; 110 1149 1 RESET SYMBIONT NOVALUE , 

3 111 1150 1 PROCESS _SYMBIONT_MESSAGE NOVALUE, 

; 6 1151 1 SYMBIONT_SERVI NOVALUE, 

; 11 1138 1 SYMBIONT~DELETION NOVALUE , 

3 114 1153 1 DELETE SYMBIONTS: NOVALUE , 

> 115 1154 1 SYMBIONT_COMPLETED_BLOCKS; 

> 116 1155 1 

3: (117 1156 1 

; (118 1157 1 EXTERNAL ROUTINE 

3 119 1158 1 ALLOCATE_MEMORY, 

; 120 1159 1 COMPLE TE~ JOB: NOVALUE, 

3: 121 1160 1 DEALLOCATE_MEMORY: NOVALUE, 

; 12¢ 1161 1 DEALLOCATE-VARIABLE_DATA: NOVALUE 

> 12 116¢ 1 ENQUEUE_ JOB: L_OUTPUT_2 NOVALUE, 

; 124 1163 1 ENTER_PROCESS DATA: NOVALUE , 

3: 125 1164 1 FETCH_VARIABLE_DATA: NOVALUE, 

3 126 1165 1 FETCH_VARIABLE_ITEM, 

3 127 1166 1 FETCH-VARIABLE_ITEM_LIST, 

: 128 1167 1 FIND_PENDING_ JOBS: NOVALUE, 

; 199 1168 1 LOCK_QUEUE_FILE NOVALUE, 

; 130 1169 1 READ-RECORD 

: 131 1170 1 RELEASE_RECORD NOVALUE, 

: 132 1171 1 REWRITE-RECORD NOVALUE , 

3; 133 1178 1 SCAN_ INCOMPLETE SERVICES NOVALUE , 

3 134 1173 (1 TORE VARIABLE BATA, 

3; 155 1174 1 UNLOCR_QUEUE _FILE: NOVALUE , 

: «136 1175 1 UPDATE_GETQUT_DATA: NOVALUE ; 

: 137 1176 1 

; 138 1177 1 

3 139 1178 1 EXTERNAL 

3; 140 1179 1 JOBCTLMBX_DESC, 

(141 1180 1 NLAO_DESC; 

; 14g 1181 1 OPAO_DESC; 

3; 14 1156 1 

3 144 1183 1 

3 «6145 1184 1 ! Symbiont control table. 

3 146 1185 1! 

3 147 1186 1 MACRO : 

; 148 1187 1 SCT_L_FLINK= 0,0,32,0 %, ! Link to next SCT . 
> 149 1188 1 SCT" V~DELETING= 4,0,1,0 %, i Symbiont is deleting itself 
; 150 1139 1 SCT"~B_MAXSTREAMS= 5,0,8,0 % ! Maximum active streams 
: 151 1190 1 SC TW" MAILBOX= 6:0.16,0 &, i Unit number of mailbox 
3 13 1191 1 SCT_L_PID= 8,0 + 0% ! PID of symbiont process | 
$15 1192 1 SCT~L~B1 TMAP= 12,6,32,0 £, | Stream index allocation bitmap 
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0 Symbiont communication 16-Sep-1984 00:37:14 AxX-11 Bliss-32 V4.0-74 Page 5 
680 : Ve-Sep-19ae 2:37:18 — Loacre gressive lont 032; 1 6 «35 
: 168 1 86 1 ROUTINE OPERATOR_REQUEST_ACTION(MSG_DESC)= ; 
: 192 1 1 ; 
3 170 1 38 1 +4 ; 
; Wh 1 1} ; 
; \7¢ 1210 1 ! FUNCTIONAL DESCRIPTION: : 
3; VW igi] 1! This is an action routine for the $PUTMSG that issues an operator : 
: «174 1 \¢ ,? request to the printer operator. It writes the record to the operator ‘ 
; 17? : i ' via OPCOM or via broadcast. | : 
.- Ore 1215 1 ! INPUT PARAMETERS: : 
; #178 1 1 1! MSG_DESC - Descriptor for message. ; 
; 179 1217 1! 3 
; 180 1216 1 ! IMPLICIT INPUTS: ; 
; «(181 1219 1! NONE : 
3 186 1 $y 1! . 
; 1221 1 ! OUTPUT PARAMETERS: : 
; «6184 1 $§ 7} NONE . 
> «(185 iges 3 3 : 
; 186 12246 1 ! IMPLICIT OUTPUTS: : 
; 7 1225 1! NONE : 
; «(188 1226 1! : 
> 189 1227 1! ROUTINE VALUE: _ : | 3 
3 A3y \ss8 : FALSE, to signal $PUTMSG not to write the message. ; 
: 13¢ 1230 1 ! SIDE EFFECTS: ‘ 
; 9 toe e NONE | . 
; 194 1S36 1! ; 
> 195 1235 1 !<- : 
; 196 1234 1 . 
; 197 1235 2 BEGIN ; 
; 198 1236 2 MAP : 
; 199 1237 2 MSG_DESC: REF BBLOCK; ! Descriptor for message text | ; 
; 200 1238 2 LOCAL : : 
; 201 1239 2 LENGTH: WORD, ! Length of message, minimized | ; 
; 202 1240 2 OPC_BUFFER: BBLOCKCSBYTEOFFSET(OPCSL_MS_TEXT) + 512], F 
; 203 1241 2 ! Buffer for OPCOM message ; 
; 204 iste 2 OPC_DESC: VECTORC2), ! Descriptor for message buffer : 
; 205 124 STATUS; ! Status return : 
: $96 ss? : 
3; 207 1245 : 
3 4 1366 : Set up the OPCOM message buffer. : 
; 210 1248 2 OPC_BUFFERCOPC$B_MS_TYPE) = OPC$_RQ_RQST; | ; 
; ii 1249 2 OPC~BU OPC$B_MS_TARGET) = OPUSH_NA_PRINT; | : 
: lg 1250 2 OPCBUFFERLOPC$W_MS_STATUS] = 0; : 
3; 2% 1251 OPC _BUFFERLOPCSL_MS_RQSTIDJ = 0; ‘ 
i glk 125g ¢ LENGTH = ASG DESC C$W_LENGTH); | : 
3 15 125 IF .LENGTH GTRU 512 THEN Eppere = 512; ' 
: 16 1254 CHSMOVE ( ‘ NGTH, .MSG_DESCLDSCSA POINTER], OPC _BUFFERCOPCSL_MS_TEXT]); : 
> 217 1255 pc _pesct = SBYTEOFFSET(OPCSL_AS_TEXT) + .LENGTH; | : 
: 18 1626 OPC_DESCL1) = OPC_BUFFER; : 
ee ea) 
; $54 1259 ! Try to send the message by OPCOM. If this fails, send a broadcast to the : 
3 288 1261 system console. : 
3; 226 1262 STATUS = SSNDOPR(MSGBUF=OPC_DESC); : 
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any ass 

14-Sep-1984 15 JOBCTL ONT .B32;1 

IF NOT .STATUS OR .STATUS EQL OPC$_NOPERATOR 

SBRKTHRU( 
ps6 DESC 

SENDTO=OPA0- DESC 
SNDTYP=BRKSC_DEV 
TIMOUT=10); 

} Return FALSE, to signal SPUTMSG not to write the message. 


FALSE 

END; 

-TITLE SYMBIONT Symbiont communication 
[IDENT \v04=000\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 DIAG_STORAGE BASE: 


.BLKB OO 
00000 DIAG_TRACE: 

-BLKB 96 
00060 DIAG COUNT: “ 
000CO DIAG FLAGS: : 
000C4 WORK_AREA: 

.BLKB 44 
000FO SNDJBC_COUNT: 

.BLKB 132 
00174 GETQUI_COUNT: 

LKB 40 

0019C SNDACC COUNT : . 
00188 SNDSMB_ COUNT: ‘ 
00200 DIAG_ STORAGE 
00200 FLAGS: <BLKB 4 
00204 TRACE “DUMP_STSFLG: 

.BCKB 4 
00208 THIS_SYSiD: 
0020€ “BLKB 2 
00210 CUR_TIME: ae 
00218 HOURLY TIRE : , 
00220 HOURLY -PARARS : - 


00234 SYMBIONT. “COUNT: 
00238 QUEUE REFERENCE COUNT 
0023C MBX_MESSAGE_COUNT: 


Page 
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SYMBIONT Symbiont communication 1b-Se -1984 00:37:14 AX-11 Bliss-32 V4.0-<74 P 7 
yoee000 eet a ee wr ek PP a9? 03). 
4 
s08ee fe MBX: et: 4 
00248 MEMORY. “FREE QUEUE 


00270 NONAST “wore K PQUEUE : 
00278 BCB_FREE TIst: 
0027¢ BCB_ACTIVE LIST: 
00280 GOL_FREE_LIST: 
00284 GaL -ACTIVE List: 
00288 OPEN_GETQUI LIST: 
0028C PROCESS bath LIST: 
00290 SYMBIONT. “CONTROL 
00294 SPARE_AREA: 

002A0 REMOTE -wé QUEST. L 
OO2A8 QUEUE FILE LKSB: 
00280 QuEUVE_LOCK UKsB: 


00288 RSP -BLKB 
002CO JBC “PRIORITY: 


«BLK 
002C4 JBC_PRIVILEGES: 
Q0O02CC JBC_QUOTAS: 

-BLKB 
0030E -BLKB 
00310 JBC wh bine 
00314 QuE0E_ 

00364 QUEUE_RAB: 

L 68 
003A8 QUEUE _NAM: 

LKB 96 
00408 QUEUE Xai: 
00460 QUEUE _RSA: 

BLK 


0055F “BLKB 
00560 QUEUVE_ALQ: 


2 

1 

-BLKB 4 
00564 QUEUE_MBF : 

-BLKB 1 

3 

8 


mn 


mg © & onl woh sreBere" el oe 


co 
Oo 


00565 -BLKB 
00568 ACCOUNTING FABS 
00570 ACCOUNTING_RABS: 


4 10 
Symbiont communication 16-Sep-1984 237: 
10738871382 93:3 


16 VAK=11 BLiss-32 V4.0-74 p 
4 12:37:15 Oo3551 oe 5S 
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s 
JOBCTL.SRCJSYMBIONT.B (3) 


.BLKB 
00578 ACCOUNT_FAB A: 


-BLRB 80 
005C8 ACCOUNT_RAB a 
0060C ACCOUNT_NAM A: a. 
0066C ACCOUNT_RSA A: 
-BLRB 255 
00768 ~BL 
0076C ACCOUNT FAB toe | 
0078¢ ACCOUNT RAB B: ve | 
00800 ACCOUNT NAM B: a 
00860 ACCOUNT_RSA B: | 
-BLRB = 255 
0095F -BLKB 
00960 DIAG_FAB: 
-BL 80 
00980 DIAG_RAB: sa | 
009F4 MBX_CHAN: | 
-BLKB 4 | 
009F8 MBX_10SB: ; | 
OOA00 MBX_BUFFER: * 


00E00 VALUE STORAGE BASES 
00E00 ITEM_PRESENT: ' 
00E20 VALUE _GETOU! BASES | 
00E20 VALUE ACEOUNT ING MESSAGE : 
00E26 VALUE ACCOUNT ING TYPES: 
OOE2A VALUE_AFTER TIME: 
00€32 VALUE ALIGNMENT PAGES: 
0033 VALUE BASE “PRIORITY: 
00E34 VALUE_BATCH INPUT: 
OOE3A VALUE _BAiCH OUTPUT: 
00E44 VALUE BUFFER COUNT: 
00E45 VALUE CHARACTERISTIC _NAME 
00E4B VALUE CHARACTERISTIC NUMBER: 
QOE4C VALUE_CHARACTERISTICS: 

-BLKB. 16 


SYMBIONT 
v04-000 
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N 10 
16-Sep-1984 00:37:14  VAX=11 Bliss-32 v4.0 
aR eet) 7a os oe a tT 


OOESC VALUE_CHECKPOINT_DATA: 
00€62 VALUE cis : 

00E68 VALUE CPU DEFAULT: 

00E6C VALUE CPU LIRIT: 

0070 VALUE DESTINATION QUEUE: 
00E78 VALUE DEVICE NAME : 

QOE7E VALUE_ENTRY NUMBER: 

00E82 VALUE ENTRY NUMBER_OUTPUT: 
O0E8C VALUE EXTEND QUANTITY: 
OOEBE VALUE FIle COPIES: 

OOE8F VALUE FILE IDENTIFICATION: 
OOEB3 VALUE File SETUP MODULES: 
00EB9 VALUE_FILE SPECIE ICATION: 
OOEBF VALUE_FIRST PAGE: 

OOEC3 VALUE “Fo DESCRIPTION: 
OOEC9 VALUE_FORM LENGTH: 

OOECA VALUE_FORM MARGIN_ BOTTOM: 
OOECB VALUE_FORM RARGIN. LEFT: 
OOECD VALUE_FORM RARGIW. RIGHT: 
OOECF VALUE_FORM RARGIN, TOP: 
QOEDO VALUE_FORM NAME: 
O0ED6 VALUE_FORM_NUMBE 
OOEDA VALUE “ORR: 
OOEE2 VALUE “Foi SETUP MODULES: 
OOEE8 VALUE “FORM Stock; 
OOEEE VALUE_FORM WIDTH: 
OOEFO VALUE GENERIC TA 
012D4 VALUE_JOB COPIES: 
012D5 VALUE_JOB_LIMIT: 


R: 
4 
8 
E 
6 
2 
R 
9 
1 


CJSYMBIONT. "833, ;1 
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v04-000 : . 12: ge07} 3b2 99: 35:1 :15 JOBCTL. Bt tis yeal6 ‘ito 533.1 — Y 


.BLKB 1 
012D6 VALUE_JOB_NAME : 


0120¢ VALUE JOB RESET MODULES: 
012€2 VALUE JOB, $1ZE_MAXIMUM: 
01266 VALUE _JOB, S1ZE_MINIMUM: 
O12EA VALUE JOB, STATUS, QUTPUT: 
012F4 VALUE LAST PAGE: 
012F8 VALUE_LIBRARY_SPECIFICATION: 
O12FE VALUE LOG, QUEUE: 
01306 VALUE_LOG_ SPECIFICATION: 
0130C VALUE_NOTE: 
01312 VALUE OPERATOR REQUEST: | 
01318 VALUE OWNER UIC: 
0131¢ VALUE PAGE "SETUP 
01322 VALUE PARAMETER. 
01328 VALUE -PARAME TER. 
0132E VALUE_PARAMETER_ 
01334 VALUE “PARAHETER. 
0133A VALUE_PARAMETER_ 
01340 VALUE “PARRHETER. 
01346 VALUE _PARAHETER. 
0134C VALUE “PARAHETER.. 
01352 VALUE _pRiQhity: 
01353 VALUE _PROCESSOR 
01359 VALUE PROTECTION: 
0135D VALUE QUEUE : 
01363 VALUE_QUEUE FILE SPECIFICATION: 
01369 VALUE “RELATIVE, PAGE: 
0136D VALUE_RESERVED_INPUT_1: 
-BLKB ~ 1 


MODULES: 


fF OMe Oo 
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0136€ VALUE_RESERVED_INPUT_2: 
01370 VALUE RESERVED, 1NPUT_3: 
01374 VALUE_RESERVED_INPUT_4: 
0137A VALUE RESERVED OUTPUT. 
01384 VALUE RESERVED OUTPUT 2: 
0138 VALUE SEARCH STRING: 
01394 VALUE _SCSNODE NAME 
0139A VALUE _WSDEFAULT: 

0139C VALUE_WSEXTENT: 


| 
-BLKB 2 | 
0139E VALUE .WSQUOTA: , 
* | 
013A0 VALUE. STORAGE END: 
-BLKB™ 0 
JBC$_CLOSEOUT= 266328 | 
JBC$"NOCMKRNL= 272388 
JBC$_NOOPER= 272532 
JBC$_NOSYSNAM= 272404 
JBC$_OPENIN= 266392 
JBC$_OPENOUT= 266400 
JBC$_READERR= 266416 
JBC$_WRITEERR= 266448 
-EXTRN ALLOCATE_MEMORY 
~EXTRN COMPLETE-JOB, DEALLOCATE_MEMORY | 
.| <TRN DEALLOCATE_VARIABLE_DA 
EXTRN ENQUEUE_JOB, ENTER_PROCESS_DATA 
~-EXTRN FETC UUARIABLE DA ATA 
-EXTRN FETCH_VARIABLE_IT 
~EXTRN FETCH VARIABLE_ITEM_LIST 
-EXTRN FIND _PENDING JOB | 
~EXTRN LOCK_QUEUE_FILE 
-EXTRN READ-RECORD, RELEASE_RECOR 
“EXTRN REWRITE RECORD, SCANT INCOMPLETE_SERVICES 
-EXTRN STORE VARI AB E_DAT 


QUE 
“EXTRN UPDATE GETQUT_DATA 
-EXTRN YOBCTE TLABX_DESC, NLAO_DESC 
“EXTRN OPAO_DESC> SYSS$SNDOPR 
SEXTRN SYSS$SBRKTHRU 


»PSECT CODE,NOWRT,2 
OOFC 00000 OPERATOR “a ACTION: 


Sey e Re R3,R4,R5,R6,R7 : 
SE FDFO CE i ams MOVAB ihc : 
08 AE 0203 = BF 000 MOVZWL #51 “ort geyFFER : 1248 | 
OC AE 0000 CLRL Pc_6 : 1291 
57 04 AC 0010 MOVL MSG” Bese. Re > 1252 


_ (ume ea, liens Na emi at AB Sa Wii el i aE a a aan Nh Re a Te i i i tl i rnin in Di ee - a4 


D 11 
SYMBIONT S,mbiont communication 16-Sep-1984 : 
vour000 12286871382 9933 
6 7 BO 00014 MOVW 
0200 af 56 B1 a017 CMPW 
1B QO01C BLEQU 
56 0200 F 8 pete MOVW 
10 AE 046 «2B? 6 0025 1$: ovc3 
6E 56 3C 00029 MOVZWL 
6E 08 gO § C DDL2 
04 AE 08 AE E O2F MOVAB 
7E D4 00034 CLRL 
04 AE 99F 00036 PUSHAB 
00000000G 00 0 Fe 0039 CALLS 
09 50 € p48 BLBC 
00058061 8F 50 D1 0004 CMPL 
1C 12 QOO4A BNEQ 
7E 7C 0004C 2$: CLRQ 
OA 0D O004E PUSHL 
7E 7C 00050 LRQ 
20 DD 00052 PUSHL 
7E 01 7D 00054 ova 
00000000G EF 9F 00057 PUSHAB 
57 DD 0005D PUSHL 
7E 04 OOOSF CLRL 
00000000G 00 OB FB 00061 CALLS 
50 D4 00068 3$: CLRL 
04 0006A ET 


; Routine Size: 107 bytes, Routine Base: CODE + 0000 


? 
7 


AX-11 B 


4 1 Bliss- 
5 JOBCTL.SRCJS 
R7) LENGTH 

ENGTH, #512 

512, LENGTH 

ENGTH, a4(R7), OPC_BUFFER+8 
ENGTH OPC_DESC 

OPC_DESC 

#2, -SYSS$SNDOPR 

STATUS, 

 atlante #360545 


-(SP) 


£ 
#1, =(SP) 
OPAO_DESC 
R? 


=(SP) 
ane SYSS$BRKTHRU 


7 
? 
78 
79 


, ee 
Nous 
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14-Sep-1984 
ROUTINE OPERATOR_REQUEST(SMQ,SJH): NOVALUE= 


JOBCTL.SRCJSYMBIONT.B32;1 


'e¢ 


i 
aah 7 DESCRIPTION: 
This routine formats and writes an operator request message to the 
printer operator. 
INPUT PARAMETERS: 
SMQ - Pointer to SMQ. 
SJH - Pointer to SJH. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT babar 
NON 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
Message written to operator. 


SMQ: REF BBLOCK, ' Pointer to SMQ 
SJH: REF BBLOCK; ' Pointer to SJH 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
5 
2 MSGVEC: VECTO at? } : SPUTMSG message vector 
3 BUFFER: VECTORL132,BYTE]; ! User's operator request text 
2 
§ : Fetch the user's operator request message. 
2 FETCH_VARIABLE_D 
§ SJH$S OPERATOR, REQUEST, SJHCSJHS$T_OPERATOR_REQUESTJ, 
SALLOCATION(OUFFER) © BUFFER); 
} Format the SPUTMSG buffer. 


MSGVECLO 
sacs. REQUEST; 


Shar snag nan NAME]; 
SJHST~ NAME iF 


USE 
ater t ii USERN 
BBLOCKLSJH canst E OPERATOR _REQUESTJ, FVDF_LENGTH); 


BUF F 
S VEC=MSGVEC, ACTRTN=OPERATOR_REQUEST_ACTION) ; 


“| 
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yoee000 14- 3e0716 4 99: 353] ‘OBCTLe SR RCISYMBIONT .B3 31 9 a) 
: 2% 1333 1 END; 
.EXTRN SYSSPUTMSG 
0004 00000 OPERATOR -REQUEST : 

Save R2 : 1276' 

5E FF58 ce 9E 0000 hOvAB =168(SP), SP : | 

E DD 0000 PUSHL SP : 1317. 

7E 84 8F 9A 00009 MOVZBL #132, <(SP) : | 

52 08 of 0 000D MOVL oie 74 3 

O1IAC «C F 00011 PUSHAB 428(R2) : 

06 DD 00015 PUSHL #6 : 

00000000G_ EF 04 FB 00017 CALLS #4, FETCH. VARIABLE_DATA : | 

DC AD 08 vO 143 MOVL #8. vet : 1323 

EO AD 00048450 8F DO 000 MOVL nebe0i6. MSGVEC+4 > 1324) 

E4 AD 06 DO O002A MOVL #6 VEC+8 : 1325 

EB AD 04 aC 00000080 8F C1 0002E ADDL rit6e “Sha. MSGVEC+12 : 1326 

EC AD 08 AC 00000108 8F C1 00038 ADDL3 #264, MSGVEC+16 + 1327 

FO AD OC DO 00042 MOVL. #12 20 + 1328 

F4 AD 08 AC 00000148 8F cI 00046 ADDL3 #328 ait MSGVEC+24 : 1329 

FB AD O1AC C2 3C¢ 00050 MOVZWL 428(R2), VEC+2 : 1330 

FC AC 6E 9E 00056 MOVAB BUFFER, *MSGVEC +32 3 1331 

7E 7C 0005A CLRQ  =(SP) + 1332 

FF35 CF 9F OOOSC PUSHAB OPERATOR_REQUEST_ACTION $ 
DC AD 9F 00060 PUSHAB MS : 

000000006 00 04 FB 00063 CALLS #4, SYSSPUTMSG ; 
04 0006A RET ; 1333) 


; Routine Size: 107 bytes, | Routine Base: CODE + 0068 | 
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: 38 } : ! ROUTINE SEND SYMBIONT_MESSAGE(SMQ,MSG_DESC): NOVALUE= 

; 500 1 $ 1 tee 

; 301 1 1 i 

; os 1 3 1! FUNCTIONAL DESCRIPTION: 

: B? ! ip : This routine sends a message to a specified symbiont. 
: 305 1341 1 ! INPUT PARAMETERS: 

3 ee 1342 1! - Pointer to SMQ. 

; 4 : $7 : MSG_DESC - Descriptor for message. 

: 309 1345 1 =! IMPLICIT INPUTS: 

; 310 1346 1! NONE 

s 31) 1347 1! 

3 \¢ 1348 1 ! OUTPUT PARAMETERS: 

s 51 1349 1! NONE 

3 14 1350 1! 

; 15 1351 1 =! IMPLICIT OUTPUTS: 

: 16 1326 1! NONE 

Bee sas. 9 3 

; 318 1354 1 ! ROUTINE VALUE: 

; 319 1355 1! NONE 

3 Seo 1356 1! 

: 321 1357 1°! SIDE EFFECTS: 

$ $§ 1358 1! Message written to mailbox. 

; $s 1359 1! 

: 324 1360 1 !-- 

3 Ses 1361 1 

; 326 1306 2 BEGIN 

3 Ser 1365 2 MAP 

: 328 1364 2 SMQ: REF BBLOCK, ' Pointer to SMQ. 
5 Sey 1365 2 MSG_DESC: REF BBLOCK; ! Descriptor for message 
3 $30 1366 2 LOCAL 

3 31 1367 2 STATUS; ' Status return 
; $36 1368 2 

s 335 1369 2 

; 336 1370 2! Write the message without waiting. 

. a 1371 § i 

; $39 io 1376 STATUS = $Q10 

; 357 P 137 § FUNC= 1Os- URITEVBLK OR IOSM_NOW OR IOSM_NORSWAIT, 

; 338 P 1374 CHAN=.BBCOCKC.SMOCSMQSL_STREAM_SCTJ, SCT_W_MAILBOX), 
: zs P 1375 2 P1=.MSG_DESC DSCSA_ POINTER), 

: 340 1376 $ nf": MSG DESCCDSC$W_ LENGTH TH)); 

3 $e) LA ‘ — T .STATUS THEN SIGNAL (JBCS. WRISMBMBX OR STSSK_ERROR, 0, .STATUS); 


-EXTRN SYS$Q10 
0000 00000 SEND chien MESSAGE : 


Save nothing 3 
7E 7C 00002 CLRQ = =( SP) : 
7E 7€ 00004 CLRQ = (SP) ; 

50 08 Ac 20 90006 MOVL  MSG_DESC : 
7E 60 3C OOO0A MOVZ2WL (ROT Steeh? : 
04 Ad dD 0000D PUSHL 4(ROS ; 


H M 
SYMBIONT Symbiont communication 16-Sep-1984 00:37:14 AX-11 Bliss-32 V4.0-74 Page 16 
v04=000 ! ak ioe rit Oe PS ht pp - 2 
7E 7¢ 19 CLRO 2 = (SP) : 
7E ps 1 CLRL = = (SP) : 
7 0470 8F 14 MOV2WL #1136, =(SP) : 
04 AC 00 00019 OVL ma, RO : 
3 OOFC =6¢ p 1 OVL 52(R0), RO : 
E 06 AO 3C¢ MOVZ2WL 6(RO), =(SP) : 
7E 04 CLRL isp) : 
000000006 00 ¢ FB 0 CALLS #12, SYS$QI0 : 
11 E F BLBS STATUS, 1 : 1377 
0 OD 00 2 PUSHL STATUS : | 
E D4 000 CLRL. = =(SP) : 
0004847A BF DD 900 6 PUSHL #296058 : 
000000006 00 3 FB 000 ¢ CALLS #3, LIBSSIGNAL ; 
04 00043 1$: ET + 1378. 


; Routine Size: 68 bytes, Routine Base: CODE + 00D6 
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: re ! f° ! GLOBAL ROUTINE START_SYMBIONT_TASK(SMQ_N,SMQ,SJH_N,SJH,SQR_N,SQR): NOVALUE= 
3 rf 1 Hi 1 lee 

; 34 1 6 1! 

; 348 1385 1 ! FUNCTIONAL DESCRIPTION: 

3 r?4 : rf: : This routine sends the ‘start task'’ message to a symbiont. 

; 51 1 56 1 ! INPUT PARAMETERS: 

$ 26 1387 1! SMQ_N - Record number of SMQ. 

: $2 1388 1! SMQ - Pointer to SMQ. 

> 354 1389 1! SJH_N - Record number of SJH. 

5 $2? 1390 1! SJH - Pointer to SJH. 

; 356 i. 2 SQR_N - Record number of SQR. 

3 Sor 1 3 1! SQR - Pointer to SQR. 

; 358 1393 1! 

3 SOF 1394 1°! IMPLICIT INPUTS: 

; 360 1395 1! NONE 

: 361 1396 1! 

; 306 1397 1 ! OUTPUT PARAMETERS: 

; 36 1398 1! NONE 

; 364 1399 1! 

: Sep 1400 1 ! IMPLICIT OUTPUTS: 

; 366 1401 1! NONE 

: 367 eRe 1! 

: 368 1403 1 ! ROUTINE VALUE: 

; 369 1404 1! NONE 

: 370 1405 1! 

= Sry 1406 1 ! SIDE EFFECTS: 

3 Se 1407 1! NONE 

; 373 1408 1! 

: 374 1409 1 !<- 

3 S75 1410 1 

: 376 1411 2 BEGIN 

; 377 9 | 2 MAP 

, Se 141 2 SMQ: REF BBLOCK, ! Pointer to SMQ 

, Sry 1414 2 SJH: REF BBLOCK, ' Pointer to SJH 

; 380 1415 2 QR: REF BBLOCK; ' Pointer to SQR 

: 381 1416 2 LOCAL 

; 382 1417 2 FIRST_FILE, ' True if first file in job 
; 383 1418 2 LAST_FILE, ' True if last file in job 
; 384 1419 2 SFM: REF eee ' Pointer to SFM 

3 HH 1420 § QSMQ: REF B ae ' Pointer fe 0 job's SMQ 
; 386 1421 SMBMSG: BBLOCK jBC$K _SMBMBXSIZJ,' Message b 

: HH 1656 SMBITM: REF esh " i Cursor tor message items 
; 388 14 SMBMSG_DESC: VECTOR i Descriptor for message buffer 
; 389 1424 

; 390 ios 

; eos 1658 Read the form definition. 

3 338 1499 SFM = READ_RECORD(.SJHCSJHSL_FORM_LINK]); 

: 95 1430 

3 $99 ioe] Message header. 

: 338 1438 émansG yt tind Y CODE] = SMBMSG$K_START Pent 

3 99 1434 SMBMSGLS MBMSGS$B_ STRUCTURE LEVEL] = SMBMSGSK_STR UCTURE 3} a 

; 400 1435 SMBMSG SMBMS GSB~ STREAM. INDEX] = .SMQCSMOSB_ STRE EAM_IND 
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Symbiont communication 


PIP POPINIPPINININONININININYIPINIPIPIPININPIPININININIPUNINIPIPUPIPIPONUPOPUNINYD 


SMBITM = SMBMSG + SMBM 


Account name. 


SG$S_REQUEST_HEADER; 


SMB 11M SMBMSGSW_ITEM ~$176) = SJH$S_ACCO 
SMBITM SMBMSGSU “ITEM-CODE) = SMB BRS GSK RECOUNT _NAME; 
SMBITM = tte + SMBMSG$S_ITEM HEADER; 
ZREF (SJH$S_ACCOUNT), 
SJHCSSHST ACCOUNTI, 
-SMBITM; ,,. SMBITM); 


} After time. 


srei tn SMBMSGSW_ITEM_SIZE] = SJHSS_AFTER_TIME; 
SMBIT ALSMBASG G$W-ITEM-CODE] = SMBMSGSK_AFTER_TIME; 
SMBITM tite ¢ TR + SABASGSS ren HEADER; 
al TIME (SJH sJHS0 AFTER_TIME), ~.SMBITM); 
MBITM = .SMBITM + SJHSS_AFTER_TIME; 
Form bottom margin. 
SMBITM SMBMSGSW_ITEM_SIZE] = 4; 
SMBITMCSMBMSG$W"ITEM CODE) = SMBMSG$K_BOTTOM_MARGIN; 
SMBITM = .SMBITA + 1 OREMSGSS. ITER HE ; 
-SMBITM = .SFMCSFMSB_MARGIN_BOTT 


SMBITM = .SMBITM + 4; 
Characteristics. 
SMB1 TMC SMBMSG$W ITEM 
SMB I TMCSMBMS GSW ITEM 


ZREF (SJH$S_CHARAC 


R-CODE) 

SMBITM = .SMBITA + SMBMSGS 
mOVC3( 

RIS 

+d 


TE 
SJHCSJH$T_CHAR RACTER 


~SMBITM; ,,. SMBIT 


Checkpoint data. 


if SUH SJHSL CU CURRENT 
AND SUHESUNSDT Ty “FILE co 


EN 
SMBITM = FETCH_VAR 
SJH$S_CHECRPOI 
SMBMSGS$K_CHECK 
SMBITM) > 


Entry number. 


= SJH$S_CHARACTER 
= SMBMSGSK CHARAC 
TEM_HEADER; 


$), 
CSJ 


ISTICS; 
TERISTICS; 


SI 
TIC 
Ics 


pf iLe CHKPT) EQL .S 
OPIES CHKPT] EQL -SJHESUHSB JOB_COP 
PIES_CHKPT] EQL .SJHCSJHSB_FICE_C 


IABLE_I 
NT SIMLSINST CHECKPOINT), 
POINT_DATA, 


I 
coP 


ES 
I 


PIE 


DONE 
S 


AX=11 
JOBCT i: 


J 


DONE) 


sre 


s$-32 V4.0-7 
eSsvmelont.03 31 
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; 45 1493 SMBITM sromis Goi TER. 5 126d =4 

; «45 1494 SMBITMCSMBMSG$W-ITEM-CODE) = SMBMSGSK_ENTRY_NUMBER 
; 460 1495 ITM = oars + SMBMSGS$S_ITEM HEADER; 

; 461 1638 ITM = .SJHCSYMSL_ENTRY_RUMBER); 

; 46 149 SMBITM = .SMBITM + 4; 

: 46 1238 

: 4646 149 

; 465 1500 H File copies. 

: $08 128) 

; 46 1 ¢ sme1 tn sroms Seu .1 Ten 5176) = 4; 

; 468 150 SMBITMCSMBMSG$W-ITEM-~CODE] = SMBMSGSK FILE COPIES; 
; 469 1 Be SMBITM = .SMBITAM + SMBMSG$S_ITEM_HEADER; 

; 470 1505 .-SMBITM = gSORESORSO_FILE_COPIES $ 

: 471 1506 SMBITM = .SMBITM + 4; 

3; 467 1507 

: 467 1508 

: 474 1509 ! File copy number. 

3; 475 1510 

: 476 1511 SMBITM SMBMSG$SW_ITEM_SIZE] = 4; 

: 477 1316 SMBITMCSMBMSG$W"ITEM CODE) = SMBMSG$K_FILE_COUNT; 
; 478 151 ITM = .SMBITM + SMBMSGS$S_ITEM_HEADER; 

; 479 1514 -SMBITM = .SJHCSJH$SB_FILE_COPIES_DONE) + 1; 

; 480 1515 SMBITM = .SMBITM + 4; 

; 481 1218 

; 48 151 

: 48 1518 ! File setup modules. 

> 484 1519 i 

; 485 1520 SMBITM = dite VARIABLE 1 

: 486 1521 SOR$S_FILE- SETUP LEBLLES. SQRCSQR$T_FILE_SETUP_MODULESJ, 
; 487 1256 SHOMECSK pit _SETUP_MODULES, 

; 488 15 -SMBIT 

; 489 1524 

; 4690 1525 

; 491 1526 ! First page number. 

; 49 1527 ‘ 

; 49 1528 IF .SQRCSQRSL_FIRST_PAGE] NEQ 0 

: 694 1363 THEN 

: 495 1530 

3; 496 1531 enBITM SMBMSG$W_ITEM_SIZE] = 4; 

; 497 1336 SMBITMCSMBMSG$W-ITEM CODE) = SMBMSGSK_FIRST_PAGE; 
; 498 153 = .SMBITM + SMBMSGS$S_ITEM_HEADER; 

; 499 1534 MBITM = .SQRCSQRSL_FIRST_PAGEJ; 

; 500 1535 SMB1TM = .SMBITM + 4; 

; 501 1336 3 

3 a0§ 153 

; 1538 

; 504 1539 Form Length. 

; 505 1540 

: 506 1541 srettn SMBMSGSW_ITEM ~S17e) = 4; 

s 507 1366 SMBITMCSMBMSGS$W"ITEM-CODE) = SMBMSGSK_FORM_LENGTH; 
; 508 154 SMBITM = .SMBITA + SMBMSGS$S_ITEM_HEADER; 

; 509 1544 2SMBITA = ,SFMCSFMSB_LENGTHI; 

: 219 1545 SMBITM = .SMBITM + 4; 

3; 6511 1268 

; 21¢ 154 

,. oF 1548 ' Form name. 

3 «5146 1549 ! 


nn 
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; File specification. 


3 15 1550 SMBITMCSMBMSGSW_ITEM ~Si7E} = CHSRCHAR yt ge -NAME)); 
: 18 1551 SMBITM SMBMSGSW ITEM- CODE] = SMBMSGSK FOR M_N AME 
3 i : ¢ SMB tte -SMBITA + SMBMSGS$S_ITEM_ HEA ADER R; 
: 218 1554 SPACSEMST NANES Sete NAME})), 
: 520 1555 SFMCSF 
; 521 1996 .SMBITM; 5,, SMBITMS; 
3; > ; 13 
3; 35 1558 
> 526 1559 ! Form setup modules. 
: $25 1560 
.. % $ 1561 SMBITN = FETCH_VARIABLE_1 
a 1206 SFMSS_FORM SETUP AS BULES. SFMCSFMST_FORM_SETUP -MODULES], 
: 528 156 SRBASGSK <FORM. SETUP_MODULES, 
3 Sev 1564 . SMBIT 
; 30 1565 | 
; 531 1566 
: 236 1567 ' Form width. 
; 55 1568 i 
; 534 1569 SMB1TM SMBMSGS$W_ITEM_SIZE] = 4; 
s 5355 1570 SMBITMCSMBMSG$W ITEM CODE) = SMBMSG$K_FORM WIDTH; 
; 536 1571 SMBITM = .SMBITA + SMBMSGS$S_ITEM_H EADER; 
; 537 1378 .SMBITM = .SFMCSFMSW_WIDTHI; 
: 538 157 SMBITM = .SMBITM + 4; 
; 539 1574 
; 540 1575 cud 
: se) 1278 } File identification or condition vector. 
: 208 1578 2 IF CHSRCHAR(SQRCSORST_FILE_ID_DVIJ]) NEQ 0 
> 544 1579 THEN 
: 545 1580 BEGIN 
; 546 1581 Pellerin ITEM_SIZE] = SQRSS_FILE_IDENTIFICATION; 
3; $47 1286 SMBITMCSMBMSG$W_ITEM CODE) = SMBRSESK FILE! IDEN NTIFICATION; 
; 548 158 SMBITM = .SMBITA + SMBMSGS$S_ITEM_ EADER; 
; 549 1584 vC3¢ 
; 550 1585 ZREF (SQR$S_FILE_IDENTIFICATION), 
: 551 1586 SQRCSORST_FILE TDENTIFICATIONI, 
5 226 1587 -SMBITM; ,,.,. SMBITM); 
; 55 1588 END 
3; 554 1589 ELSE 
3; 555 1590 EGI 
; 556 1591 SMBITMCSMBMSG$W_ITEM_SIZE] = SQR$S_CONDITION VECTOR; 
s 557 1338 SMBITMCSMBMSG$W ITEM CODE] = SMBMSGSK MESSAGE _VECTOR; 
3 328 1337 S = .SMBITA + SABMSG$S_ ITEM_H SeanER’ 
; 560 1595 ZREF (SQR$S_CONDITION_VECTOR), 
; 561 1596 SQRCSOQRSL _TON NDITION_T), 
; 266 1597 -SMBITM; 7,, SMBITM); 
; 3 1598 END; 
: 564 1599 
: 565 1600 
: 1803 
: 16 i SMBITM SMBMSG$W_ITEM ~S ize = CHSRCHAR(SQRCSQR$T FILE SPECIFICATION); 

3 1604 af Ba SRORSGSU ITEM" CODE] = SMBMSGSK FILE SPEC CIFICATION; 

: Me SMBITM -SMBITA + SMBMSG$S_ITEM_ HEADER: 


PASI 
NNOOO 
-—oo0on 
oooooo 
ow 


—— eee... — 


iF .SQRCSQR$L_LAST_PAGE] NEQ 0 
THEN 


4; 

SABMSGSK LAST_PAGE; 
S_ITEM_HEADER; 
PAGED: 


.. re 
Ps " 


ITM MBIT Ss 
-SMBITM = .SQRCSQRSL_LA 
— = .SMBITM + 43 
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: ae 1607 PRET Cceepecuan (SOR s0RsT FILE_SPECIFICATION])), : 
; $7 1oRs SQRCSQ FILE SPECIFICATIONI+1, : 
: 5746 16 oMeiIRe yee SMBITM); : 
; 375 1610 : 
; 6 1611 : 
: 7 161 ' Job copies. ' 
; 78 161 i ; 
; $79 1614 SMB 1 TMC SMBMSGSW ~ {TEM Size} = 4; : 
$ 80 1615 SMBITMCSMBMSG$W-ITEM CODE] = SMBMSGSK JOB_COPIES; ° 
; 581 1918 ITM = .SMBITA + SMBMSGSS ITEM_HEADER; ° 
3 286 161 -SMBITM = .SJHCSJH$B_JOB_COPIES); ‘ 
: ee 1918 SMBITM = .SMBITM + 43 : 
Py 161 ¢ 
3 FA 1620 . 
$ 288 + 1 ' Job copy number. 

; 588 16 i SMBITM SMBMSGS$W_ITEM_ size. = 4; 

; 589 1624 SMBITMCSMBMSG$W_ ITEM CODE] = SMBMSGSK JOB_ COUNT; 

; 590 1625 SMBITM = eth + SMBMSG$S_ITEM_HE 

; 591 1626 -SMBITM = .SJHCSJH$B_JOB_COPIES_BONEJ +'1; 

3 236 1627 SMBITM = .SMBITM + 4; 

Be 18 

; 595 1630 ' Job name. 

; 596 1631 ! 

s $97 1636 SMBITM SMBMSG$W_ITEM_SIZE] = orereaen tievetons NAME); 

: 598 163 eet SMBMSGSW ITEM CODE] = SMBMSG$K_JOB_NAME; 

; 599 1634 SMBITM = .SMBITA + ReODE) = ITEM_ HEADER; 

; 600 1635 vc3¢ 

; 601 1636 Hit arterial _NAME])), 

; 602 1637 SJHCSJH EJ+1 

: 603 1638 ~SMBITM; >,, SMBITM) | 

3; 604 1639 

; 605 1640 

; 606 1641 ' Job reset modules. 

; 607 Hb 9 | i 

; 608 164 SMBITM = rere VARIABLE_ITEM( 

: 60 1644 SMQ$S_JOB_RESET RODOLES. SMQCSMQ$T_JOB_RESET_MODULES), | 

; 610 1645 SMBMS St3k R308 RESET MODULES . 

4 1 1646 . TTRDT 

; 1647 

3 1648 

3 1649 

3 165 

3 165 

; 165 

: 165 

3 165 

5 165 

3 165 

3 165 

3 165 

: 165 

3 166 

3 166 

: 166 

: 16 


Bs 


9 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
4 
5 
6 
? 
8 


AOAASAAAAAAAAAAAA OAD 


RoPofofononononen 2 
WO DONAUEWN HO 
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; 629 1664 Sn TRCSMBRsc GSW_ITEM_SIZE] = 4; 

; 630 1665 SG$W-ITEM-CODE) = SMBMSGS$K_LEFT_MARGIN; 

; 631 1666 tees thi + SMBMSG$S_ITEM_HEADER; 

3; 6 ¢ 166 mBITM = ,SFMCSFMSW_MARGIN-LEF TI; 

3; 6 1668 Smal in = .SMBITM + 43 

mm 198 

; 635 1670 
; 6 1671 } Note. 

; 637 1ol¢ 

; 638 167 éMB1T™ = FETCH_VARIABLE_ITEM( 
; 639 1674 SJH$S_NOTE, SJHCSJHST_NOTE), 

; 640 1675 SMBMSGSK_NOTE, | 
; 641 1676 : ™™); 
; 64 167 

; 64 1678 | 
3 644 1679 } Page setup modules. 
> 645 1680 | 
: 646 1681 SMBITM = FETCH_VARIABLE_ITEM 
: 647 1682 SFM$S_PAGE- SETUP MODULES. SFMCSFMS$T_PAGE_SETUP_MODULES], 

; 648 168 SMBMSGSK_PAGE_SETUP_MODULES, 
; 649 1684 SMB TM) 

; 650 1685 
; 651 1686 | 
3 $26 1687 ! Parameters. 

: 65 1688 2 i | 
3; 654 1689 SMBITM = FETCH VARIABLE_ITEM_LIST( 

: 655 1690 SJH$S_PARAMETERS, SJH{S "AS $T_PARAMETERS), 

: 656 1691 SMBMSESK. PARAMETER: 1, | 
3; 657 1698 .SMBITM 
; 658 169 

; 659 1694 

; 660 1695 Print control flags. 

; 661 1696 

; 662 1697 SMBITN SMBMSGSW_ITEM_SIZE] = 4; 

3; 663 1698 SMBITM SRBASGSHE ITEMS CODE] = SMBMSGS$K_PRINT_CONTROL; 

3 664 1699 SMB I ns - SMBIT SRBNSGSS. ITEM_HEADER; 

; 665 1700 -SMBITM = Q; 

: 666 1701 IF .SQR SOR Rov -POUBL E_SPACE] THEN SMBITMCSMBMSG$V_DOUBLE SPACE] = TRUE; 

; 667 1708 IF .SQRCSQR$V_PAGE HEADER] THEN sn ITMCSMBMSG$V_PAGE_ HEADER) TRUE ; | 
; 668 170 IF .SQR SORSV~PASSALL THEN SMBITMCSMBMSGS$V_PASSALL be | 
: 669 1704 IF .SFMCSFMSV— SHEET FEED) THEN SMBITM SREMSCSV SHEET FEED es 

: 670 1705 IF .SFMCSFMS$V_TRUNCATE) THEN SMBITMCSMBMSGSV_T grag * 

; 671 1706 IF .SFMCSFMSV— “WRAPS THEN SMBITMCSMBMSG$V_WRAP] = 

3; 67 1708 

: 674 1709 ' Compute paginate bit. 

: 675 1710 ! 

; 676 1711 IF .SQRCSQRSV_PAGINATE_EXPLICIT] 

3 677 ie EN 

; 678 171 BEGIN | 
3 144 Hat IF .SQRCSORS$V_PAGINATE) 
3 681 716 SMBITMCSMBMSGSV_PAGINATE] = TRUE; 

; 68 171 END 

; 68 1718 

> 684 1719 2 ELSE IF .SJHCSJHS$V_PAGINATE_EXPLICIT] 

: «685 1720 THEN 
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; 686 1721 BEGIN 

3 ret if § IF .SJHCSJH$V_PAGINATE) 

; 689 1724 SMBITMCSMBMSG$V_PAGINATE] = TRUE; 

; 690 1725 END 
; 691 1726 
: 69 1727 2 ELSE 

; 69 1728 
; 694 1729 IF .SMQCSMQ$V_PAGINATE) 
; 695 1730 H 

3; 696 173) SMBITMCSMBMSG$V_PAGINATE] = TRUE; 

; 697 1738 ND; 

; 698 17 

; 699 fee SMBITM = .SMBITM + 4; 
; 700 1735 
: 701 1736 2 
; ff 1737 ! Separation control flags. 
; 70 1738 i 
3; 704 1739 SMBITMCSMBMSG$W_ITEM_SIZE] = 
; 705 1740 SMB 11M SRBASGSU, ITEM-CODE) = SMBMSGSK SEPARATION_CONTROL ; 

3 oS 176) SMB1TH ITA + SABMSGS$S_ ITER. HEADER; 
; 708 1548 IF “BBLOCK jak JOB_RESET_MODULES) FVDF al ENGTHI NEQ 0 
; 709 1744 2 THEN SMBITMCSMBMSG$V~JOB_RESET_ABORT) | 
: 710 1745 2 
3 711 1746 2 . 
: 712 1747 2 ! Special actions for the first file in the job. 

; 713 1748 2! 
3 714 1749 2 FIRST_FILE = FALSE; 

s: 22 1750 ¢ 

: 716 1751 (. SJHCSJH$B_JOB_ COPIES DONE] EQL 0 

3: 717 1752 3 AND .SJHCSJA$B_FILE_COPIES DONE) EQL 0 

; 718 1753 3 AND .SJHCSJHSL_-FILE-LIST] EQL .SQR_N) 

3 719 1754 2 OR 

; 720 1755 2 . SJHCSJH$V_RESTARTING) 
3; 721 1756 ¢ THEN 

: fee 1757 

3 fe 1758 3 SJH ALSJHSV RESTARTING) = 
: 724 1759 3 IF .SMOCSMQ$V_JOB_FLAG) THEN ime 1 TMCSMBMSGSV JOB_FLAG] = TRUE; 
; 725 1760 3 IF _.SMQCSMQ$V" JOB ~BURST) THEN SMBITMCSMBMSG$0_JOB_BURST] = TRUE 
3; 726 1761 3 IR 4s FILE = TRUE? 
3: 727 1762 2 

3; 728 1765 2 

: 7e9 1764 

; 750 1765 ! Compute file burst bit. 

3 73) 1766 ; 

: 732 1767 IF .SQRCSQR$V_FILE_BURST_EXPLICIT) 

; 739 1768 THEN 

: 734 1769 GIN 

: 735 1770 IF .SQRCSQR$V_FILE_BURST) 

3; 736 1771 N 

3 P3r 776 SMBITMCSMBMSG$V_FILE_BURST) = TRUE; 

: 738 177 D 

3; (39 1774 

3; 740 1775 ELSE IF .SJHCSJH$V_FILE_BURST_EXPLICITI | 
3; 741 1776 THEN 
3 742 177 BEGIN 


SYMBIONT 

v04-000 

3 743 1778 
> 744 177 
> 745 1780 
; 746 1781 
; 74? 17ee 
; 748 178 
; 749 1784 
; 750 1785 
; 751 1786 
: Pee 1787 
3; 1788 
; 754 1789 
> 755 1790 
; 756 1791 
; 757 1738 
; 758 179 
3 fo 1794 
; 760 1795 
: 761 1796 
; pee 1797 
; 76 1798 
: 764 1799 
; 765 1800 
; 766 1801 
3 for 1308 
; 768 180 
; 769 1804 
3; 770 1805 
; fry 1806 
: 772 1807 
3; «ft 1808 
; 774 1809 
$ gre 1810 
3 rr 1811 
s “er 13l¢ 
: 778 181 
; ¢ry 1814 
:; 780 1815 
3; fel 1816 
3 fe 1817 
; 783 1818 
; (784 1819 
: 785 1820 
: 786 186) 
3; 787 1 4 
; 788 182 
; 789 1824 
: 790 1825 
; ri 1826 
; 1827 
; 1828 
; 794 136? 
; 1830 
: 7% 1831 
; rr 1336 
; 183 
; 799 1834 


po 
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(SSUnESInS FILE BURST) 
(, SJHCSJHSO_FILE_BURST_ONE) AND .FIRST_FILE) 

, NSMBI TMCSMBMSGSV_FILE_BURST) = TRUE; 


ELSE 
BEG 


IF .SMOCSMQ$V_FILE BURST] 
OR (, SMOCSMQ$0_FILE_BURST_ONE] AND .FIRST FILE) 


HEN 
aay SMB1TMCSMBMSG$V_FILE_BURST] = TRUE; 
Compute file flag bit. 

IF .SQRCSQRSV_FILE_FLAG_EXPLICITI 

THEN 


BEGIN 
IF .SQRCSQR$V_FILE_FLAG] 
. SMBITMCSMBMSGSV_FILE_FLAG] = TRUE; 


itd IF .SJHCSJHSV_FILE_FLAG_EXPLICIT) 
BEGIN 
IF .SJHCSJHSV FILE FLAG) 


OR (. SJHCSJHSO_FILE_FLAG_ONE] AND .FIRST_FILE) 
. SMBITMCSMBMSG$V_FILE_FLAG] = TRUE; 


ELSE 


BEGIN 
IF .SMOCSMOQS$V_FILE_FLAG] 
or at (.SMQCSMOSY_FILE_FLAG_ONE] AND .FIRST_FILE) 


> SMBITMCSMBMSGSV_FILE_FLAG] = TRUE; 


Special actions for last file in job. 


LAST sft # = Ai Sei 

OB _COPIES_DONE] + 1 Geay .SJHCSJH$B_JOB_CO OPIE $] 
AND’ eesti FICE COPIES DONE] + 1 GEQU - SQRCSQR$B_FILE_COPIES) 
 & SORCSYMSL “[ INK] EQL 0 


ENBEGIN 
IF .SMQCSMQ$V_JOB_TRAILER] ha tet SMBMSG$V_JOB_TRAILER] = TRUE; 
IF -BBLOCKCSMOLSMOST JOB_RESET MOD LE or ue  LENGTA] NEQ 0 
THEN ag bh SMBMSGSV~ JOB_RESET 
athe Fite = 
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; 800 1835 ; 
3 4 } § Compute file trailer bits. ° 
; 80 18 8 IF_.SQRCSQRSV_FILE_TRAILER_EXPLICIT] ‘ 
> 804 18 THEN ‘ 
; 805 1840 BEGIN ‘ 
; 8 1841 IF .SQRCSQRS$V_FILE_TRAILERJ ; 
; 80 1306 THEN ‘ 
; 808 1845 4 BEGIN ‘ 
; 809 1844 4 SMBITM tales Ma IL LE TR ILER] = TRUE; 
; 810 1845 4 SMB I TMCSMBMSG$V_FILE-TRAILER 7 ABORT = TRUE; : 
3 681) 1846 END; ‘ 
: gig 1847 END ° 
3; 68) 1848 ‘ 
; B14 1849 ELSE IF .SJHCSJHSV_FILE_TRAILER_EXPLICIT) ‘ 
s 815 1850 THEN ‘ 
; 816 1851 BEGIN ‘ 
; 817 1826 IF .SJHCSJHSV_FILE_TRAILER] ° 
: 818 185 THEN : 
; 819 1854 4 BEGIN : 
; 820 1855 4 SMBITMCSMBMSG$V_FILE_TRAILER] = TRUE; ‘ 
; 821 1856 4 SMBI TMCSMBMSGSV_FILE_TRAILER_ABORT) = TRUE; ‘ 
; 822 1857 4 END . 
; 823 1858 4 > 
> 824 1859 ; ELSE IF .SJHCSJH$V_FILE_TRAILER_ONEJ : 
; B25 1860 THEN ; 
; 826 1861 4 BEGIN : 
: 827 1006 4 IF .LAST FILE THEN SMBITMCSMBMSGSV ris pienttenl TRUE; : 
; 828 18635 4 SMBI TMCSMBMSGS$V_FILE_TRAILER ABORT] = TRUE; : 
: 829 1864 3 END; ; 
; 830 1865 ; END ; 
; 831 1866 ; 
; 832 1867 ELSE : 
; 833 1868 : 
; 834 1869 IF .SMQCSMOQ$V_FILE_TRAILER) . 
; 835 1870 3 THEN : 
; 836 1871 4 BEGIN ‘ 
; 837 1872 4 SMBITMCSMBMSGSV_FILE_TRAILER] = TRUE; : 
; 838 1873 4 SMBITM SMBMSG$V_FILE-TRAILER_ABORT] = TRUE; : 
; 839 1874 4 END ; 
: 840 1875 4 : 
: «841 1876 H ELSE IF .SMQCSMOQ$V_FILE_TRAILER_ONE] : 
3 Hk 1877 THEN 3 
; ee 1878 4 BEGIN - 
: 44 1879 4 IF .LAST_FILE THEN oe ITMCSMBMSGSV Hs a * TRUE; : 
3; 845 1880 4 SMBITMCSMBMSG$V_FILE_TRAILER_ABORTJ = : 
: 846 1881 3 END; ; 
; 847 Sse END; . 
: 848 is SMBITM = .SMBITM + 4; : 
; 849 1884 : 
; 850 1885 ; 
; «4851 1836 ' Request control flags. ; 
3 $26 188 i : 
; «85 1888 SMBITMCSMBMSG$W_ITEM_SIZEJ = : 
: 854 1889 SMB 1 TMCSMBMS Sou ITEM- CODE) = SABMSGSK REQUEST CONTROL; é 
; $2; + 94 tt ee - SMBITA + SMBMSG$S_ITEM_HEADER; : 
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00 14-Sep-1984 ‘OBC TLS SYMBIONT.B32;1 
; 857 193 IF .SJHCSJHSV_RESTARTING) THEN SMBITMCSMBMSG$V_RESTARTING] = TRUE; 
; 858 189 IF .BBLOCKCSJALCSJHS$T -OPERATOR_REQUESTJ, FVDF LENGTH) NEQ 0 
; 859 1894 AND .FIRST_FILE 
; 860 1895 THEN 
; 5) 1998 esis 
: 66 189 SMQLSMQ$V_OPERATOR_REQUEST] = TRUE 
; ar bd. pre] TACSABASGSY, PAOSE_COMPLETE] = ei LSE: ! Temporarily cleared (v03-015) 
; 865 1900 SMBITM = .SMBITM + 4; 
; 866 1901 
; 867 1306 
; 868 190 ' Job priority. 
; 869 1904 i 
; 870 1905 SMBITM SMBMSG$SW_ITEM_SIZEJ = 4; 
; 871 1906 2 SMBITMCSMBMSG$W-ITEM-CODE] = SMBMSGSK_PRIORITY; | 
; 87¢ 1907 2 SMBITM = .SMBITM + SMBMSGS$S_ITEM_HEADER; 
: 87 1908 MBITM = .SJHCSJH$B_PRIORITY]; 
: 874 1909 SMBITM = .SMBITM + 47 
3s 87> 1910 
; 876 1911 2 
; 877 1916 2 ! Queue name. 
; 878 1913 2! 
; 879 1914 2 Qsma = READ_RECORD(.SJHCSJHS$L_ QUEUE NK) 5 
; 880 1915 2 SMB1TMCSMBMSGSW_ ITEM_SIZE] = CHSRCHAR anal a NAME); 
; 881 1916 2 SnBI TRU SRBASGSU, ITEM, CODE] = SMBMSG$K 
: 882 1917 2 SMBITM = .SMBIT SRBNSGSS. ITEM_ READERS 
; 883 1918 2 MOVC3( 
: 884 1919 2 jan lh tes eel ay teat -NAME))), 
: 885 1920 2 ashat snast AME J +1 
; 886 1921 2 - SMBITM SMBITM) 
; 887 1956 2 RELEASE "RECORD(. * SJHESJHSL QUEUE _LINK]); 
; 888 1923 2 
: 889 1924 2 
; 890 1925 2 ! Form right margin. 
; «891 1926 2 
; 892 1927 2 SMB I THCSMBMSGSW_ ITEM_SIZE] = 4; 
; 893 1928 2 SMBITMCSMBMSG$SW ITEM CODE] = SMBMSG$K_RIGHT MARGIN; 
; 894 1363 2 SMBITM = .SMBITA + + SMBMSG$S_ITEM_H HEADER; 
; 895 1930 § -SMBITM = .SFMCSFMSW_MARGIN_RIG Tl; 
; 896 1931 SMBITM = -SMBITM + 4; 
; 897 1932 
; 898 1933 . 
; 899 1934 ! Time queued. 
: 900 1935 i 
; 901 1936 SMBITM SMBMSGSW_ITEM_SIZE] = SJH$ 
: 90 1937 SMBITMCSMBMSG$W_ITEM CODE) = Shansck ME ime QUEUED; 
; 90 1938 SMBITM = re TA + SMBMSGSS_ITEM_HEADER; 
: 904 1939 conr TIME (SJH SJH$Q TIME), .SM - 
; 905 1940 MBITM = .SMBITM + SJHSS_TIME; 
; 906 1941 
: 907 1366 
; 908 194 ! Form top margin. 
: 909 1944 i 
; 910 1945 SMBITM SMBMSG$W_ITEM api red = 4: 
: 911 1946 SMBITM SMBMSGSW ITEM"CODE) = SMBMSGSK TOP MARGIN; 
; 31g 1947 2 SMBITM = .SMBITM + SMBMSGSS_ITEM_HEADER; 
s 91 1948 SMBITM = - SFMCSFM$B_MARGIN_ TOP); 
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if 12 
Symbiont communication o=3e0-12 4 ¢ 99: $3! AX-11 Bliss-32 V4.0-7 Page 27 
4-Sep-1984 JOBCTL.SRC SYRBYONT .03 31 (6) 


SMBITM = .SMBITM + 4; 


: 1949 
; 915 1990 

: 316 1951 

; 91 199¢ 1 UIC. 

: 918 195 i 

: 919 1954 SMB 1 TMC SMBMSGS$W ~{TEM_S1ZE] = 4; 

: 920 1955 SMBITMESMBMSGS$W-ITEM-~CODE) = SMBMSG$K_UIC; 
>: 921 1996 SMBITM = .SMBITM + SABMSGSS_ITEM_HEADER; 

: 9 é 195 ~SMBITM = ,SJHCSJHSL_UICI; 

: 9 1958 2 SMBITM = .SMBITM + 43 

: 926 1959 

; 925 1960 

; 9 § 1961 ' User name. 

3; 9 1308 i 

; 928 196 SMBITMCSMBMSG$W_ITEM ~$176) = SJH$S_USERNAME; 
: 99 1964 $MB1 TH SMBMS GSW ITEM-CODE] = SMBMSG$K_USER_NAME; 
; 930 1965 SMBITM = .SMBITM + SMBMSG$S_ITEM_HEADER; 

; 931 1966 C3¢ 

: 932 1967 ZREF (SJH$SS_USERNAME), 

; 93 1968 SJHCSJHST_OSERNAME J 

> 934 1969 .SMBITM; >,, SMBITM); 

: 935 1970 

; 936 1971 

3; 937 1376 ! Trailing zero item. 

3; 938 197 i 

; 939 1974 SMBITMCSMBMSG$W_ITEM_SIZE] = 0; 

: 940 1975 SMBITMESMBMSG$W-ITEM-CODE) = 

+ 941 1976 2 SMBITM = aeROI TA. + SMBMSGS$S_ TEM. HEADER; 

: 962 1977 

: 94 1978 

: 944 1979 ! Send the message to the symbiont. 

: 945 1980 i 

: 946 1981 SMBMSG -PESC 1] = SMBMS G; 

> 947 198@ SMBMSG-DESCLOJ = .SMBITM - .SMBMSG_DESC(1]; 
; 948 198 SEND SS TMBIONT TMESSAGE (. SMQ, SMBMSG_DESC); 

: 949 1984 

: 950 1985 2 

3; «6951 1986 ! Update SMQ. 

: 93¢ 1987 i 

; 95 1988 SMOCSMQSL_FORM_LINK] = .SJHCSJH$L_FORM_LINK]; 
> 954 1989 

; 955 1990 

; 956 1991 ' Update SJH. 

: 957 199¢ i 

; 958 199 SJHCSJHSL_CURRENT_FILE_CHKPT] = .SQR_N; 

: 959 1994 2 SJHCSJH$B~JOB COPIES CAKPT) = .SJHCSJH$B_JOB_COPIES DONE]; 
> 960 1995 2 SJHCSJHSB— COPIES CHKPT) = SS UHESJNSE. FICE_COPIES_ DONE); 
; 961 1996 SJHCSJHSL~CURRENT FILE LINK] = .SQR_N; 

: 962 199 DEALLOCATE_VARIABLE_DATA( 

; 1998 SJHsS 360 CKPOINT, __ 

: 1999 JHESTH T CHECKPOINT3); 

; 2000 eat V_ eeetuT ine) = TRUE; 

: 001 SJHLSJHSV-FILE STARTING) = TRUE; 

3 $008 - 7 RECORDT. SUHCSJHS$L_FORM_ LINK)); 


OR FS PR ee HO Re HS He EE HS HS HS HS ES FR ER FS FR HR ES EE FE FE FS FETS FS TS FS HS HS FS FS FS SCS HSS FSCS HSS *S tHE tara*S*e*e 


Symbiont communication 


yreieat 


S$ 
Vv 


MTN OeKhuneTOO- Ww MM DO MONW -—vT Me 


o oa [-) 
~ N MoM MT~TUWMOOFF-CO DO DO oa Gaoo --— om NN MPO 
~~ ~w vwvwvar wwaewvawvwvavwvvsy OST OUSTlCUS rrnwn ww ww wo won 
_- - De ee ee el el oe eh ee el oe ee oe ee ee el ed corer oeK Ke mr - ooreom 
FR PSPS FSS FSS FS FS FS FSS HS HSS SHS SSS SHS HSS HSS HSS SHS HSS SS HS FSS FS HS FS SS FS SS SS FS SE SCE SCS SESE SEER ERSTE HS 
a 
. 
o 
« 
. 
w 
t+ 
— 
w 
4 
. 
~~ 
tL: 4 
. 
™N 
i: 4 
a 
> 
a = = 

~ ws wd 

= = — 
a ~ lo _ — 
» = > = t 4 - ++ 
wn aon ooo ae one w + ion + w Fe ee ed 
<« MM ASR REO i. ee ee _ z+z=z 
-—— +ZEzOTEEe-=zM = = Qo £+fF -= @ ear = 
L a Ore fee ee ~ oOo oO <= eae Ee < a Be 
-a a Dee Nee Oe ZF & « — =e ee ES — —@wa 
2 a oO 722-2225 2 = ae «< — _ _— = —£= 
oom YL Nu OFS YEnc oO fF <= _ 2 Send <= MDWnM 
—— w + Bmw mun~-~unvod ao rr > now A-@ > ~z~~ 
Oa - ae oo 7 w~anawr~r~w w~ecunnm ™ =z~ei~r~ wor-arce = ” 
= s_ 1'ww . OO _ xe wn ~ w+ xe ~ 28 © 
>o-a. a s&s —F -&@& ss ss SO . . Wer ww s ._ wn un o On 
NZnon~ a Pl esoboosn hee _ Us ~~ §OOo wr On = _ oOo = 
ti ~fonwu SOUvODO-OOuUMe=O 0O OO FE CO wo ~aen0v0 +f -—- wn Neeru 
om CAaAqwwwn AwWowwocovnm cc ec —- SF weWOnO RNA — ee AWM CORT 
eam ~~ ~—~=E- O~r~m we - Ye = /! ower sfhe~e DO ec worw 
=< ~worew +s eee" COVUURAOO FO O ¢ WN + SVUONaewe hee ww ~~ Ow~erO 
Rh — MNO OM EP. EB DW NMI TP MAL. GR. MEP COM FOR. -~ DIDOOR. TKN E—O OST OOKH-Or- ve 
MS I MVNBBTBBWMHUNUVLVZRZR— BMVBZBUVU— MM M1 — HMREMBVTBORBVHOBSM~~ VewoOze2erowzoezm 
> 2 —_ @ os) —_ 2 =) 
< @ wn 2 ~ on aI iun @ 9S aj @ 
—- Loytrtiti3zoiod ae 49 YIN YY JODO OOTI ITTY I IN IN TET ITE TE UU IG 
Zz SPrROwnwni>S> > lS >>> SPP SP FPF FP [Faw wtwnvnnwni>>>r>o>r> >> 2VUwNnnuwni>-ar>>>> 
w COODDIOOOCOCOCCCOCCCCOCCOSE ZE SE SDIDIDDIOOOCCOCOOCCOZ DDD TDC OMWOOCOO 
* BPAAFVTSTSSTSSTSTSTSTSSSSSO OO MAACAAZTSESESESSESSLESE—-Aaaavks-OEETzE=z 

we oS 
- ™N 

S VOLVO VOT OW WM) f—- OOM OC ONT OM Oe RN WI DOM POUR SZ OWOMM OE WT Ou O 
SS O00 ee HNC CIMIMIM AT TWN OO OPR-P-P-F- FR. ODDOOOCO oe et EOODOMOMOVVVYVvoocdoew 
S COOCCCOCOCOCOOCOOOOOSCOSOOOCOSOOOCOCOSOOSOOCOOOCOOCO OOOO SOOOOOSOOOOCOOOOoOSO 
OS OOOO CCOCOCCOCCOCOCCOCCOCCCOSCOCOCOOCCOSCOCCOCOOCOOSOSOSOOSOCOOS OOO OCOOOOOCOoOOoOSoOS 
OQ OOOOCOOOOOOOCOOCOOSOSSOOSOCSOCCSCCSOSOSOCOSOCOSCOSOSCOOOOOSOOOOOOOoOOoO 
Y WOU ODOOCOCOCOCWODWS OO LOO K-VK V- WO Bue QGDOCCCSO £Ow £0064 ODOVMooo<« 
—_ COC Ou OBO OCC ANF OS ONO KOKO — OOS Bu COfBDBAO OOO OfBSae Bau00O-a08aoO 
rw 
oO 


WLOW- OM VOW Du Ou Fu OWOWOOOSTMR OOO Ou OCP & OMMMuh OOP Our uO 
YVEIVDMDOMOO CV IDO VOD VO K— VN VK NO VNOMND LO LDV ODM BOOM LOOaI Dw 


wove or-Ooom waaowrmo ~~ @® w® oO wowovwso uN ve wove 
unruO OonrnrO OCOM- Ww Ke PK [*) oooe- wor. wT “ OoOMmown 
oa oO - & ooocoro oOo - =_— a oso So o- cS oe 
uu © o Oo oCcooo oO CO oO Oo o So oo o oo 
nm Ww OO oa a w o - 
ooo So co oS So — = 
oo oc S& o oS =] co oS 
ooo ©& o Oo o o oO 
wo AWD WIPMIMOMPMIMMPIMMOV OO WO MPI. PP) COM) —m dl ah Ll 
ww UNAEEMENOCAOOMDOOOVE ww ww WmiNaoco coco coin ww cocoa 
9 o Oo 
o ww u wv owr ve Oo o So 
o oo oO - <-—-— tS OF So So 
oOo Oo - oO o 
o oOo o oOo oS =] 
Co o i=] 
o oOo oOo 
Oo So oS 
o Oo So 
~ ~ 
o o 


=32 V4.0-74 


Yara td § 
JOBCTL.SRCJSYMBIONT.B32;1 


Symbiont communication 


Oewown OND K—KROKRMYROSRMO cMoDoY 


- reve Ooy a2 
MWNwMmnwoo or~nm wor-ooo°oodee wr MMMM) ~F wT WwW WWMoorr oeoc0 
MMMMAWN UW MNMMMMNOOOOOOVODO woowuowovono oo Ooovoovono oo 
Cel oath eel cel oe el Sh eh se ced coe el el eel el ll el eel el Cel el oe el el od - Serer eK -— 
Pete Fe FS FS FS FS FS FS FS FTES FS FS FES HS FS HS TS HS FS HS HSS SHS SHS HS HS HSS HSS HS HS HS HSS HS SS SS TS FS SSS SCS FSFE SES SSSR SESE CR ER FS He 
= t= = = 
~ w ws ive) ive) 
= - ~ ~ ~ oa be — 
— “ = = = = = _ = 
+ — ‘++ -— +h. =+ «+ - a + ++ i) ‘ 
~ 2 we an as me -—-“ eon aa — wi ~ ~~ w uw 
=  £F= =? =zo+ —=-= ~ P =J =z+=z=z a = 
a ” ao - -=- get = @ ma @ @ 
= ~~ <= =—7 “WE —-—— ” <q =e < < 
ca ne 2P @~ ~~ + “252 = + a ot —@wa os — 
~ . ce = —_~ 2 Lod 2s « —-—z= a a 
Y=Zo- <= "mM we. WwW = YEZwO- = 5 aq MON 4 <« 
— + > ew —a_ wR Ee wwe neon > ~~~ > Le 
— eS ~ ~n-oOn ~~ co = ” e = 
wm =eess “= *Zc~Ooar + 7+ W+ 2 [4 xe ww 8 8 =xze xe 
~=-~ ~~ Veewan ~~ Ow aw 20 wn 5 w un oo NRA un ~ wou 
=zo=rm = = @o0o WO OH w~eMnOnm EARN ~ ert J ~ = ~ 2 = rt 
a~erE wu wkreunr CN ORK Rw OMOODO +O~WOWOEZk © wk wreouwk wo wket wo w 
vn Ne ) 4A MHOUMWr O - ~~ BELEN E RR Ee Ee OR ORMNME SF Ue YO uM 
-~ ~~ = ] ae~aoc ~~ = mM ee ee Own YOON Ww et YS ec woaMre=s ~ _ 
evcoryu oa OTS MKD ONW~WNWY WNOMNO- ZN woo sw KRY oOOMuC . —_—— es 
wh OE — TOTO TODA VANE NANO KF. — DEMOWVNVOOZTWVOOTS OTS Be TK TEMVNOTOTMMNowsro 
MVBVEZYRMBBZBSMvuM B&BS BP TRSMAaM~~~— WRBSVZHRBvsBsVconBoOosamMuvesevVsecviesmMaaeac 
Oo OMIM =s La) mo am @ 4 Oo @OmM4iI2f iM Boys YIM 
NMBNVITEITITYIYVIINOYV YUN SBN UN IN IN BNU TI ITI I II IN IEEE IT UT IIT IT 
>>> PMN NNN USS S--O> > OS PrP lr lp SP SP SP SP SP eV Se Oo Ph ONY US SB OOF DN YH) UI PNY UI > 
OOOO DD DI OCOOMWOOTOOCOCOCOCCOCOCOCSCOZOCOCOD.DaDD <I OMWOCOCOD DDD <AODDDTD IO 
SESTAAAAVETES+MESOSTESSTSSISSISSS-TETFTAAAACf+AMESTFFAQAAABTAAAAvE 
“A oD 
mm wT wn 
DOmMaworw eNO WR NN Ee DOO TF DOT OOM £2 UP Oe RN WI TOO OO WIE OWNS OCU 


[vere pred ret tt — pip le AE NS ee Sete Se TAMNOOOOOPR-P-P-P-DODDOAOOS fo fC ODOMODVVOYVYV 


COOOQCOCOOOCSOCOOSOSOSSSSSGSOSSOSCOSCSOCSOSOCOOOSOSCOOCOOOOOOOoOSO 
DOLD OOe OQDOOYUMOD-- OO O00 400 LOW TODO AWE Gu OBOUMOCOV O64 OOO Ge O00 
AOOWMOOS Ou. BOM — ON ONG DOW OADP OSPR OP DOOAOWOAASP Ou CO— OOOMOAA08 464 60000 0404 


ANOOMMEA OF Ou OF Wier VU OP. OP. Ot OL OEMOO OOM ADOT OR. Oulu OmMooosom-ooso 
Vr OWN VOOM OD VY LOD - ODO £2 &— IND VD VOD GV UMM — VOOM LOD LDN VOOMMNUVOOW 


Oo Oo a wow ww ~ @@ wawuw oo a co o wove oO ta] 
- << wn ownn = o rf TF OFOF o oOo - Tr owonwn < ~o 
- -— _ o- oO So o-Oer - << _ oe Oe _- - 
o oO Oo oo o Oo oooco Se ©& Oo oe oo o Oo 
w we we ~ @ Qo w 
_ — _ - -— - -— 
o o Oo o oO o So 
Oo Oo o o oOo o Oo 
Mmooe Pe Mr MPEMMORMMIM ZED MMmOw —— RMR — ee 
DWaOnw uwswnoo00 Ot DBDIDWOMNADDOOMNO DaoNnw ww oo.00 00 cD wn we 
o o o o 
_— oOo =) o =) oa o i=] oS 
- o - - wv Oo o So So 
- o _- oS oS So 
oO o o So So i=) 
o o o i=) 
o Oo i=) o 
o oS So So 
oO o So o 
~~ » ~~» ~ ~~ 
DO sO ~o oO oe 


-32 Vout ots 
SYMBIONT.B32;1 


j 


yer Blis 
JOBCTL.SRC 


19337515 


st 


} 12 
16-Sep- 
14-Sep-19 


Symbiont communication 


ssh 


PO Oe Oe OS OSHS He FS HS FS HEHEHE FS HS FES FS HRS ES TS ES ES HS ES ES FS FSFE HS FS HS FEES ES HSS HS HS SES FS SHS HS HS HS SS HS HS SS SCS SS HSS SS FES 


KOON woOesonm 


NO NM Ts WH CO TOnr- NUN MM NOOO CO —r-ONWO 
an aco So Oo 8 OC OC HSHTeKrKN NNMMM~s a Trwrw YYW OWN O OORRKRP- 
ono orr ~~ ee ee ee RRR REE PR ~~ ~~ eRe Oe RRP 
oe ce De ce ce el ee el oe el el ee el ed oe el bt ce ce ce ce el el oe ce el el el ed el 
PSPSPS FS FS FSS SPSS FS HS HSS HS HS HS HS HS FSS HS HSS HSS HSS HSS HS HSS HS HSS FS HS HS HS SS HS HS SCR HS SS SSSR FCS SS SES SR PS FO FE SE HS 
r— 
” 
— 
| 
i 
= 
w 
ra 
ws 
‘+ + 
wm ~~ ~~ 
—~ = = 
Oo - fA we 
<= - oe = Sad _ fr A A A 
— @ - —-AAeA w 2 ~ 2aeeoeo w mw 
<= = A ~ aS Eo ad = tN K—ANWAUAOA CCV 
zn AAR-O- EF eB eee =~ WM _ « = £—-wo 
> ~ orr= Ae eee ee = ~ _ oe . — uc ss 
= oOo —- &— OnE = es mM aK = w YP ARR I an 
x=— = Be te ee 2s utnn = One « ail 22282 —- = s+ OO 
VO = ODO SZ NHNEZEMMOO ecQq-oO- ne > &€eeikainwn- cae 
~ §-O-=F OBOLAel-oOr~orr-cea . ~ T= - ue _ ewwweow~oOazcoo ~~ 
= O wEneKenQven~ouieven ~~ -- TOM ow t a ol bel ol te) 4 
—- & ewvveiwewe~wwvw we — = * ono -—~owNe —-—~ A cf See RK Kw Oe 
_—_ Wwoa ._ ws * mss @&e w el ono  -—- ~ . 8 
@aow~ww «+ ~~ ss 8 MY ewety ew MV - OMOw~wW~MMem + 2 ow NE Me MTA + + OO -U © = eH 2 8 
PN FOC NOUN AON DI ON FTA TT NNND OM It EK EK. POTION 
VBTReeew~r- BBVBVVBVwWr-BVBVeBVeweeer en - BBVVA~“~ACVe CRuirerw-e We - BVTVZVTVZVAV2ZAVZVAVZBZ 
@ 
aut iM Soa ees 2 S om N NN NG 
Se ee ee | oOo @ @Ov-D @ @® vaa Ot44IjIj3IIMO290044 © @D@ WD 
MMMM YPFIX PVN VN VN DVHVMN VN VVYAO- WOKE - ae GBVVET Wr WO DVVONUMN SPLUVODnM 
ee ert tet Sy er er ae tt oe a ee eS 
2AOAOAVYEFTVE MMOMDDOOODOOMDOOOOO+ OMDOAOOSIE V+ O—- Ow Of ODL OOODODOODOZEOOOOO 
oe ° a“ A we PAA cA es eh fr AA 1 
feof A RAO = N mr oO ~oO Cc O- N 
o Co - = - -—— - -— - er ™N 


estees* te ty he be Ned wy ete a omente 4 
BOBO] WW & & & 600 NINN CIPD SF TF TT TIWMUAUAAUIUN OO OO OPR-P-F-P- CO ao 
III CII 
COOCCOOOOOOOOOSOOOOSCOSOSCOOSOCOOCOSOOSOOCOOOSCOOSOOOOOOSOSOOOOOOOSOOOOOOoSoOSo 
COOCCOOCOCOOOCOOCOOOCCOOSSSSSSCOSSSCSCOCOCCCOCOSOOOOooOoO 


O04 ODOO ST WO DO — DOO DO K— DK KK OND —“DOO ST FNM ODINUNV RE Me oe Or DOK —-O 
OOP Ou OOO Ws W100 WO W060 00 WI WLW WI WOU OOOO OD OOK Om Om WO WI WO O We 


MVDODOTOULMVP. VK OWNVOOOK— UW OLOWOVO QM RK TT UMMNDOMa — ZL UMOOMNWNTNOTO RK FM wie 
MNLTIOM DDO LOOOOOCO LVUODOWDOO— << TOOOCOOCOCDWD OM VOMDMNOOOSO VOOOOS- OWwooo=-cooO 


N wTr Ve Y o oOo wa wv co oO w 
@ o Oo Oo wr wo oo oOo - co “ 
_— o oO _ oO 
oO o Oo Oo oO 
<x ~~ 
N ~ 
Oo Oo 
Oo Oo 
BMY COMOMOMMMOEMAMmMoo rk aomrn ~~ ve OWODMOM-.CO ow 
UNC MOOOOWOWOOWOIOIOWOO Oo zone oO <x« <«aeqecwoacwonwvoo daca 
Oo 
Oo ve wv w Tra So VY 
Ss o oO Oo - --O Oo oo 
Oo 
o 
o 
o 
Oo 
a vTrwvwTr ow ~~ ~ - M- om wv 
o Oo oOo o Oo Coe oO - S&S & om Of 


12 
WB-Sen~1964 00:37:14 


SREIsYmBIONT 039; 1 


AX=-11 Bliss-32 V4.0-74 


JOBCTL. 


Symbiont communication 


a3 
ES 


eC OY ANHOOMOrK- wu ems w oOo fo SOK—NOK- FOUN AONMOORD OMO-ew 
~- OO DOCOCOCOO -—-— —nN N uN SN MMMMS TIM NOOORR DOO oO 
~ Ree BRK CODOD wa oococ 00 o oo eocococ00O aOc0GD aaOcOcOCDGD aOcocOGDDD a 
Se ch ee eh eh el eh ee ee eh ed Cre aed ee = Se ce oe ee el ce ee el el el el el ee el eel el oe od 
Pee FS Fe PSPSPS FS FS FSS FS FTS FS FS HSS TS HS HS HS FS HSS HS SHS SHS HS SSS HS HS HS HS FS FS SHS HSCS SS FS SS SES SSSR SESE STE SCS STER SESS FECES 
wv + 
a w ~ 
oe = 
. _ 
F AAA AAA A A ~ bs A A —_— A 
oOo moo @oo- oO - oOo ~ aw aw 2 o 
N NON OOP Mm ~» a ~ ~ ~~ wu me. mco ~w 
ane ~ ~ a =z £4 ~ Man =~ 
. ess sou eee ~ <= t. ] ~ —_—_- = woh . Aa: £et ~ = 
~~ Ree aan _~ we ~ t+] — “ues oO ~~ s eh ee EZ ~ 
© @DMO.w—- +: OOO @® ae—wsrs MM Ts CO 2 wr ~ Our MCW = Ot 
ae e&€aeeOn- eacec « —O6oe a ee ecw eu a o-e 
~ ~w~wu FOO —ew ~~ “u — s . MAwnuw . ~~ Re oe Co=z=~ ~ 
N NN NEE CCN Ne Mus @ >> @ ~ ~w~Mmwet « af Oe RAMU YMUE er OwO 
- Se ewww eee OO FN eUmLeELUCUC CUD oem o- oo — | Oe wY~ONOete~=z 
” ec wn §oO - ~ «= >.> On <a - & & Ps] ~ 
Fs 8 8 8 oH 8 8 RM HME WH A ArA~RM 8 “TFT TOMMY ORY MH + + OO + <e" 
MTT OM OM TOD ON SNE ETO ETI OT ESI MV RK NOR YS TOR MOU. — LOM ETFO MMT Ne 
BRBVSB Bu BsBVemMRBVaevze Mu fF sg~TBVM~TCBM-M—-_MBTCRzese-YMmM-— MB UM BS IB BVsAV~Bevv 
_ a! 
N uN @©@ >>0 >> Nu GN cue N 
vm OOIVO IN INSININE YOMIOVOwIeOoO 1eOM 4 WY YOO QO 
VLOKMVOVVVODCVVAY- wave >ve-— [2V0— wr WYKOY SO- WOO KHLODODOLCOVMa-aevovr-a 
OF OO OO MOOOTOVOS 13 JOZTEVOZEOM 209 10 UME IH IYO YE I OO UO owas 
BDOODOODOODOOOOOO+-ODOOVCE COZ VOr OF ODOOOE O}- MOOOr-ODODOOOOOO<KE BDOr-QD 
ea AAA co Sad AAA Fr AA oe ee AAA asd 
mM TWO ~ te) oor NN MT wn o on Oo 
Nm cvuCcuC ™N ™N ween so EE ~ ~ neers wT 
ONT O We FOV UPN Oe TP OO TOOL ST EZ OWOMWMO VOKVN- OOO TFT OOWOTO VE UMUUIM Ot 
Ot ££ ft MMOMMDCVVV OOO OO] WwW WWW & & & & OO NII CIPS TT TUN 


NOI OI OOS OSI OI OI ONION OI OI OI OI OI OI OI OI OI OOS OI IOI OI OPPS PPL PSDP PPFD PLD PFD PDD PSD PDP DPD PD DOD ODP DPD DOT DET DE DE DOD 
COOOCOCOCSCOOOOOOOOSGOSOSOOSOSSOSOSOOOOSOSSSOOSOOCSOSOOOOOSOOOOOSO OOOO OOSOoOoOSoOSoOS 
OOOOOSOGS DBDOOOOOCOOOOSOOSSCOSSOSSOSSOSSSOSSOSGSCOSOSOSOSSOSOSOSOSOSSOOOOOOOoOooo 


KOR OOK KK On KONDO OT LOO F< LOO LMNNUMNDDODOOMND OMS — O-- Oe - OC DOWDOOs- Ow 
ae Ce We WO LUO OOO OW O OWI OO DWI OWI ON IO WWI WIV OOWOMD— 


Met TN OM UNTO FE ODO - CIN ET OST OT ORF MOT KN OOP. & ODO RK NEL DK VT OT UM Ot 
COOOOMOOO—- OOOSOS LONOMDODNOVONS — Oe LOOMDO LOVE] CL —- ONO LOMNOCOCODOOOwWO 


YL a oe av a wv ve 
Oo Oo Tr Oo oo Oo o < 
oOo — 
o Oo 
— 
Nm 
So 
o 
2 DOMMOO OOO @® mo sr © w @O MTVU O ive Ow DOMMMmMmm OM 
=< a<aowowoo dada <« owow wn Oo WM CO ZOWONS o zo ocowowuonoeo «wo 
vw ww Vvev VY - a a = 
o oo ooo oO Oo Oo oOo - 
uw wow om www @ oO ~ ~ oa La) 
- oo oN On--—- O&O vw < _ Oo Oo 
<x w 
~ w 
- 
oO 
w w 
wn w 


rel tS Veuen 03s 
JOBCTL.SRCISYMBIONT.832;1 


Symbiont communication 


seh 


Ooocooodn SKK NN NMMNMm WwNOOr- O00 DOAAAAO oo oO 
DBDODOSOSHA PSOSASHA POSCOCSCOSCSCAHOSOAOO SOooronon oO 
Sd oe ok ol ool od N 


ee ee en oe ee eel ik anal aanaeiic eee eneli eae aeeeic omelet aaa aan eneiic eee ae 


Pe Fe Fe Fe Pe Fe Fe FO Fe OS FS FS FS FR FR FS FS FR FE FSFE FS FS FS FETS FS HS FS FS FR FEHR HE ER PEER FESR SCR Hee 


YU 
”" 
wi 
a 
v 
4 
4 
= a 
2 <= 
w a 
” oO t 
= > G “ 
“= —_ 
= = T= 2) @ 
+ ~~ _ Sl oe uw <q 
+ ~ 2 ++ ++ _—- Ve = os 
~+ = oses.ecenee bt i a a 
=- — Y @Getstet-tezz-—=z uw = <9 « 
-= — ~ OFF EeeeEeH 2M 4 > o 
6 asl eg A tt a ts a Re t on 1 w 
- 2s a + = rt Pee St et we —OnA AA w w 
wv 2 OWaAcn 2 2 . ww couoono me < 
~ Ww o-rra VUYVNEZMYMMEV- =£+ wa 4 4 4: 4 < ’ 
-_ =z ~~ ww wewew Owe Ow O | petr4 edie deed wn w 
ware ~~ Fe HH Hw — ~-~ « YW NOOO oo w 
jt 2 ess asses sss ow + Mu orn +a << 
vel * agzo~ won 0 Wns OWOO-— O20 Qa cwRrery ——- WwW 
u~ pg tere te, Lad pe Ted tet fader eet 4 -*tt2Zae ~ <0 
WME OOOWY~ OF. Ow sTOCurTOOMrUoOUW!W we sss WO We mw 
eee OMOcaeca Bee -VMacouvwsco “MMW wAZznanZae 2 ac 
”“ ve VY VY ewer YmMNYOw~nr. zzz Y oe Ww wm 
a ss 2--O “OO DW MT OmMOOT ON 222 weer arn wrw + 
SOIT NID PR TR HOE MIT ME MMT PMICUM ee Ovogeecomuvo— 
uBR RR SMMB— Be CAMB VQMBMAaAMAaAMBzB~YN V1 TBF BH~~ VM BFVVEez 
wens OOO OMIM Fs @ nm - oN Av IW) 
VOO YN ET UNBNVeT YIN UO IN I I LIE TET I UO TT UOT 
MMvar>rvwu> SP lS rw I> SP SPS Se ee er OE POON I Se SO Fh OH) LI UL 
a= OOO DILOOOCO DI OOCOOCCOCOOCCOOCSO JOD DDaatOOCOCOCOFD Dea aw 
@MOOatTTAYESTSTAVYVESTESSSSTESSYBZMOAAGZTTTETTAAvYMAves 
ee 


~w 
Ste ww we N OMY WIN — OOM WM DOVO MO OV O-Mafwie OD 
WNOOOFr-Pf-P- DODDS OSO << LE OOMOVVVOCOWWwwe uw nOOOnr nr Kw 


COSCO OCOOOCOCOOGOOOOOOSOSSOOOOOSOCSSCCCOSOSCOSoOO 
OO LOO LODMDOLWDOOOVO OO L000OTswMu ODOOCCOCSCu OoMmooay 


WDWDVYVOSO OU OOWOu OMOP- OF OOOWOAE YO Ou CACC AC OuDOucO 
HNN & OOK OVO RM OR oO Oe OO Oe OM WWWOWW tI DOOOOWOWe 
NOOOD VVOVNMNOMN VOD VOVOVYVODYDOOdE eT HOOD IOOtOWO-- DO 
Tra o oO Ff WOOVTVUYT TU vow ow Tro o 
or. @ 2 oy OMmoOmMoOoMmo so ooo o-n- -—-o Oo 
orn OC - O-cOr-Or Oro _ 
ooo fo Oo Oo OOOCoOOoOOoooo Oo 
@ r- wv lh O KR OO 
N nan Mm 
oOo soos °o 
oO ooo oo ©& 
DOME PEN OE IMMIMMMPMMIEN WO WP uBDowovowvo ooo uM 
OtOMOD WODMY WODDODMDODDOODOw an VItVVUUY wt w 
oOo o o Oo 
oO Oo - S&S o a Iovawvo co So 
— oO 2 oOo Tr 2° wr wh we o- oO 
oO oO - Oo Oo---oO o o 
So o oOo oOo u COOcoe o [=] 
oOo oOo So So 
o oO So o 
So So o o 
o o Oo o 
~~ ~~ w 
o oO <= 


04 


Routine Base: CODE + OITA 


1065 bytes, 


av 
N 
- 
” 
@ 
co 
rd 
3 
a 
*. 


SYMBIONT Symbiont communication shee’ Sep-1984 2:37:14 AX-11 Bliss-32 V4.0-74 Page 33 
yoee000 . 1ergebn13be $9:85:1s = aba ct eRe istmelons .0$351 ve 3 

; 370 ied ! GLOBAL ROUTINE STOP_SYMBIONT_TASK(SMQ_N,SMQ,SJH_N,SJH): NOVALUE= 

: 97 1! 

: ots $07 1 i 

; 9746 008 1 ! FUNCTIONAL DESCRIPTION: 

: af? S94 : } his routine sends the ‘stop task’ message to a symbiont. 

; 97 011 1 =! INPUT PARAMETERS: 

; 978 og 1! SMQ_N - Record number of SMQ. 

: 979 013 13 SMO~ - Pointer to SMQ. 
; 980 014 1! SJH_N - Record number of SJH. 

: 981 015 1! SJH” - Pointer to SJH. 

; 98 B18 1! 
; 98 017 1°! IMPLICI® INPUTS: 
; 9Be 018 1 i NONE | 
; #985 019 1! | 
; 986 020 1 ! OUTPUT PARAMETERS: 
: 987 2021 1! NONE 

; 988 sos 1! 

; 989 208 1 ! IMPLICIT OUTPUTS: 
:; 990 024 1! NONE 
; 991 025 1! 

: 338 026 1 ! ROUTINE VALUE: 

; 99 027 1! NONE 

> 994 2028 1! 

> 995 2029 1! SIDE EFFECTS: | 
: 996 030 1! NONE 
3; 997 2031 1! 
; 998 oo38 1 !e= 

; 999 soe 1 

3; 1000 034 2 BEGIN | 
: 1001 2035 § P | 
; 1002 2036 SMQ: REF BBLOCK, ! Pointer to SMQ 
: 1003 2037 2 SJH: REF BBLOCK; ! Pointer to SJH | 
3; 1004 2038 2 LOCAL 
; 1005 2039 2 : oo, Ocet Jac ee _SMBMBXS1Z], Message buffer 
: 1006 2040 2 SMBITM: REF BBLOCK ' Cursor for message items 
: 1007 Shes 2 SMBMSG_DESC: VECTORE ZI: ! Descriptor for message buffer 

: 1008 Be 

3; 1009 204 

: 1010 2044 : Message header. 

3; 1011 2045 
3 Ha 2046 SMBRSG SMBMSG$W_REQUEST_CODE] =_SMBMSG$K_STOP_TASK 

3; 101 047 SMBMSG SMBMSGS$B_S TRUCTURE_LEVEL) = SmOnsGsk CTRUC TURE “ene 

3; 1014 048 SMBMSG SMBMSG$B~ STREAMS | INDEX] = .SMQ Q$B_ STREAM_INDEX 

; 1015 049 SMBITM = SMBMSG + CROMSGSS REQUEST MAEADERS 
3; 1016 2050 

3 1017 051 

; 1018 B28 ' Reason for stop. 

3 1019 05 i 

: 1020 054 SMBITM SMBMSGS$W_ITEM ~$i7e} = 4; 

: 1021 055 SMBITMCSMBMSG$W_ITEM” CODE) = 1 SEBMSGSK STOP_CONDITION; 

: 10 ; 026 SMBITM = SS . + SABMSG$S Ten _w ADER; 

: 10 05 .- SMBITM JOBABORT OR sts K “PE ADR 

3: 1024 058 IF .SJH HC Suite + wae THEN .SMBITM = jecs_ JOBREQUEUVE OR STSS$K_ERROR; 

; Se $020 SMBITM = .SMBITM 


a kk ds 
gococcoocsescscoscsese 
VFWN—O0O~ 


foyer.) 


seh 


; Routine Size: 


Symbiont communication 


83 bytes, 


Trailing zero item. 


SMBITM SMBMSGSW_ITEM_ SIZE] 
SMBITMLSMBMSGS$W~ ITEM CODE 
SMBITM = .SMBITM + SMBMSGS 


S_ITEM_HEADER; 


Send the message to the symbiont. 


SMBMSG_DESCE1] S 
SMBMSG-DESCLO] = .SMBITM - 
SEND_SYMBIONT MESSAGE ( SMa 


0004 00000 .ENTRY STOP_SYMBIONT_TASK, Save R2 
SE FBF8 CE 9€ 00002 MOVAB -1032(SP), SP 
08 AE 07 B80 00007 MOVW #7, SMBMSG 
OA AE 01 90 00008 MOVB #1. SMBMSG+2 
52 08 AC DO 0000F MOVL a, R 
0B AE 0117 C2 90 00013 MOVB $279(R2), SMBMSG+3 
51 OC AE 9E 00019 MOVAB SMBMSG+4, SMBITM 
81 00340004 8F 00 00010 MOVL #3407876. (SMBITM)+ 
61 00048082 8F DO 00024 MOVL #295042, (SMBITM) 
50 10 AC DO 00028 MOVL §SJH, RO 
07 11 AO €9 900¢t BLBC 17(RO), 1$ 
61 000480E2 8F DO 00033 MOVL #295138, (SMBITM) 
51 04 CO 0003A 1S: ADDL2 #4, SMBIT 
81 D4 0003D CLRL. (SMBITM)+ 
04 AE 08 AE i 0003F MOVAB SMBMSG, SMBMSG_DESC+4 
6E 51 04 AE C3 00044 SUBL3 SMBMSG_DESC+4, SMBITM, SMBMSG_DESC 
4004 8F BB 00049 PUSHR #*M<R2,SP> 
FB41 CF 02 FB 0004D CALLS #2, SEND_SYMBIONT_MESSAGE 
04 00052 RET 


Routine Base: CODE + 0543 
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N 12 
Symbiont communication 16-Sep-1984 2:37:14 0-74 
4 4 Hn 99:3 :15 JOBCTL.SRC Sihevont 645-1 


6 
14-Sep-19 
GLOBAL ROUTINE PAUSE_SYMBIONT_TASK(SMQ_N,SMQ): NOVALUE= 
144 
' 
FUNCTIONAL DESCRIPTION: 
This routine sends the ‘‘pause task'’ message to a symbiont. 

INPUT PARAMETERS: 

SMQ_N = Record number of SMQ. 

SMQ - Pointer to SMQ. 
IMPLICIT INPUTS: 

NONE 


sek 


ERFERKER 
OOOCOCCCOCCOO 


At tet try te es PER 


AE WN $$ O OONOAVEWN ($$ O OONOU EW 0O 0M 


GREW —OVOONOuM 


OUTPUT PARAMETERS: 
NONE 


jejelelelelelelelelo) 
PAA 


wooo 


IMPLICIT OUTPUTS: 
NONE 


WN —OOONAUE WN O OONOUS wr 


FES 


ROUTINE VALUE: 
NONE 


SSF 
SoOooooooooooooo 
ooononovowo 


SIDE EFFECTS: 
NONE 


28 


SMQ: REF BBLOCK; ! Pointer to SMQ 


SMBMSG: BBLOCKCJBCSK_SMBMBXSIZ],! Message buffer 
SMBITM: REF BBLOCK, ! Cursor for message items 
SMBMSG_DESC: vVECTOR(2); ! Descriptor for message buffer 


Message header. 


SMBMSGCSMBMSG$W_REQUEST CODE] =_SMBMSG$K_PAUSE_ TASK; 
SMBMSG(SMBMSG$B_STRUCTURE LEVEL] = SMBMSGSK_STRUCTURE_LEVEL; 
SMEMSGCSMBMSG$B_STREAM_INDEX] = .SMQCSMQ$B_STREAM_INDEX); 
SMBITM = SMBMSG + SMBMSG$S_REQUEST_HEADER; 


COON NNN NNN NGS 


SSBLSARANLSSSIOAR ALS 


: Trailing zero item. 


SMBITMCSMBMSG$W_ITEM_SIZE) 
SMB 1 TMCSMBMSG$W~ ITEM CODE) 
SMBITM = .SMBITM + SMBMSGS 


COOOCCOCOCOOOCOOCOCOOCOoOoOoOoOoOo 


° 
MMM 2 OOO OCOOO0O 


S_ITEM_HEADER; 


=] 
ooO0 
wr 


: Send the message to the symbiont. 


SMBMSG_DESCE1] MBMSG; 
SMBMSG-DESCLO] = .SMBITM - .SMBMS 
SEND_SYMBIONT_MESSAGE(.SMQ, SMBMS 


332 


Se 


Be Be Se Be Se Se Se Se Se Se Se Se Se Ss Se Se Be Se Fe Ss Se Ge Se Se FH Se GH Se Se See Se Se Se Se Se Se Ss Se Se Se Se Se Se See Se Se Se Se ee Se Se Se tease 
a ee a a em a a a ad nd od od od 
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SYMBIONT Symbiont communication 1b-Se -1984 00:37:1 AX-11 Bliss-32 V4.0-74 Page 36) 
VO4=000 1a-Sep-1986 99:37:15 LGOBETLeSRESSYMBYONT 039; 1 BS 
; 1099 1 
: 1100 1 
; 1101 134 ! Update SMQ. 
; 1108 135 | 
; 110 1 6 é SMOCSMQSV_PAUSING] = TRUE; 

3 1104 1 END; 
| 
} 
0004 0000 .ENTRY PAUSE_SYMBIONT_TASK, Save R2 ; oers| 
5E FCOO §«6CE COE: O900¢ MOVAB Prose tSP) SP ~ : 
6E 01 BO 9900 MOVW ‘ : 3114 
02 AE 01 90 OO00A MOVB #1, SMBMSG+2 : 2115 
5 08 AC DO 0000 MOVL SMQ, R > 2116 

03 «AE 0117 C2 90 0001 279(R2), SMBMSG+3 : 
50 04 AE 9E 0001 MOVAB SMBMSG+4, SMBITM + 2117 
80 D4 O001C CLRL (SMBITM) + : 2122 
5E DD OOOI1E PUSHL SP : 2129 
7E 50 6— ¢3 00020 SUBL3 SMBMSG_DESC+4, SMBITM, SMBMSG_DESC : 2130 
4004 8F BB 00024 PUSHR #*M<R2>SP> > 2131 

FB13.—sCF 02 FB 00028 CALLS #2, SEND _SYMBIONT_MESSAGE ; 
10 A2 08 88 0002D BISB2 #8, 16(R2) > 2136 
04 00031 RET > 2137 


; Routine Size: 50 bytes, Routine Base: CODE + 0596 


v04-000 


ee ee ae ce a ed ee ee ae ae ed cee cee a ce ed ee ce a a ca ca a a a ee ee ce ce ce a ee el ee a ee ed ee ee ee de 
ee ee a ce ce ca ed ee ca ae ec ee a cae eee ce ce ce ce ae a ce ce ee a ee ce ee ee cee ee ce ca cD ee ce ee ec ee ee ce a ee ed ed 
PED Wan BB BBE EEE ANNAN ANNAN PINIPONP DY) 2 2 OO OSS OOO 

RO OO0 MOA Rt ODO NOAM EWN OOO NAME AN ODO NOU FUN OO SOME WN BODO ae 
POPIPDPPIPNDPDNNYNIPDPOPINYNNYNYPYNPYNYNININININININIPNINYNINYINIPYNIPOPUPOPOPYPIPONPOPOPOPOPoNoNoPonofpofronorny 
ad a cee a ce ced ced end ee ee ec ee ee ee eee cn cc ae ce ee ec ce ce ee ee ee ce ct ce ce ce ee cd ee et eh cl eh cc ce ee ce ee ec ce ec ee a ee el 


OOO OO 000000 09 09 09 09 09 09 SIN IS INS NS NN NA AAAAAAA AAMAS BB PEPE PEP 
PWN 9 OD NOAU EWN 0 OONOU EWN  O OD NA UE WN 0 OONOAUEWW COD NOAUE WW OO0O@ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
é 
; 
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: SYMBIONT.B32;1 


14-Sep-1984 7:15 JOBCTL.SRC 


roe 


GLOBAL ROUTINE RESUME_SYMBIONT_TASK(SMQ_N,SMQ,FLAGS,ALIGNMENT_PAGES ,RELATIVE_PAGE, SEARCH_LENGTH, SEARCH_ADDRE | 


'e4 


i 
FUNCTIONAL DESCRIPTION: 
This routine sends the ‘'resume task'' message to a symbiont. 


INPUT PARAMETERS: 
SMQ_N Record number of SMQ. 


i 

i a 

! SMQ~ - Pointer to SMQ. 

: FLAGS - Resume control he ge 

: ALIGNMENT _PAGES = Number of alignment pages (or 0). 

: RELATIVE PAGE = Relative page position (or 0). 

' SEARCH_LENGTH = Descriptor for search string (or 0). 

SEARCH_ADDRESS = 

i IMPLICIT INPUTS: 

NONE 

i QUTPUT PARAMETERS: 

NONE 

i IMPLICIT OUTPUTS: 

NONE 

i ROUTINE VALUE: 

NONE 

i SIDE EFFECTS: 

NONE 

i —-—=— 

BEGIN 

MAP 
SMQ: REF BBLOCK, ' Pointer to SMQ 

ete. FLAGS BBLOCK; ! Resume control flags 
SMBMSG: BBLOCKC JBCSK_SMBMBXS1Z],! Message buffer : 
SMBITM: REF BBLOCK, ' Cursor for message items 
SMBMSG_DESC: vECcTORC2); ! Descriptor for message buffer 


Message header. 
SMBMSG[ SMBMSG$W m 
SMBMSGCSMBMSG$B_STREAM_INDEX] = .SMQCSMQ$B_STREAM_INDEX); 
SMBITM = SMBMSG + SMBMSG$S_REQUEST_HEADER; 

Alignment pages. 

if .ALIGNMENT_PAGES NEQ 0 

THEN 


BEGIN 
SMBITMCSMBMSG$W_ITEM_SIZE) = 4; 


D 13 
SYMBIONT Symbiont communication 16-Sep-1984 37:14 Ax-1 
04-000 . oxge8- 1382 99: 


: 1 
3 1 
3 1 
aS 
3 1 
: 1 
3 1 
: 1 
3 1 
3 1 
3 1 
: 1 
2s ¥ 
3 1 
Ss 
3 1 
3 1 
: 1 
3 1 
3 1 
3 1 
3 1 
3: 1 
: 1 
3 1 
3 1 
7 
3 1 
3 1 
se 
: 1 
3 1 
3 1 
. 
3 1 
: 1 
3: 1 
3 1 
3: 1 
3: 1 
: 1 
3 1 
: 1 
3 1 
2 § 
: 1 
3 1 
3 1 
3 1 
3; 1 
: 1 
: 1 
i. 
: 1 
3: 1 
3 1 
; 1 


1 Bliss-32 V4.0-74 Page 38 
14-Sep-19 7:15 ANBCTL SRE TSTABIONG 03551 9 3) 
SMBITMCSMBMSGSW_ITEM CODE] = SMBMSGSK_ALIGNMENT_PAGES; 
SMBITM = .SMBITM + SMBMSG$S_ITEM_HEADER; 


-SMBITM = .ALIGNMENT_PAGES; 
thee = .SMBITM + 4; 


} File repositioning. 
if .RELATIVE_PAGE NEQ 0 
THEN 


BEGIN 

sre t atemeneceunh ea taned = 4; 

SMBITMCSMBMSGS$W_ITEM CODE) = SMBMSGSK_RELATIVE_PAGE; 
SMBITM = .SMBITM + SMBMSG$S_ITEM_HEADER; 

hee = .SMBITM + &; 


Request control flags. 


i NEQ 0 OR .ALIGNMENT_PAGES NEQ 0 
BEGIN 
SMBITMCSMBMSG$W_ITEM_SIZE] = 4; 

SMBITMCSMBMSG$W_ ITEM CODE] = SMBMSG$K_REQUEST_CONTROL; 
SMBITM = .SMBITM + SMBMSG$S_ITEM_HEADER; 


-SMBITM = 0; 
IF .FLAGSCISRV_V_ ALIGNMENT MASK] 
THEN SMBITACSMBMSGSV_ACIGNMENT_MASK] = TRUE; 
IF .ALIGNMENT_PAGES NEQ 
THEN SMBITMCSMBMSG$V_PAUSE_COMPLETE] = TRUE; 
IF .FLAGSCISRV_V_TOP_OF FIL 
THEN SMBITACSMBMSG$0_TOP_OF_FILE] = TRUE; 


y thet d bt pet ted et eet PP PRN RPE OS Ae AAO 


oO 
Sv2SSSVFSSRSv2 DOO NRMP WN OO OUP UI OD oo ern od 


RIPIPIPOPDPNININYINDAPIPININIPYIPYPYDINYNNONINPYNI PI AINININININONMYNPNPYAPINGNONO Po NNN NoNoNonononynonofnofnononononony 
PIPIPINPININININININIANINIPINYININININININININIPINIPY NI NIPYNINININPYNININIPYPOPUPININPININININNPIPYNNPoNgNny SS 
SV BS BB BBE BEE A.A WINN AIP PIPONPINPINIDINID 2 OO OS SS S| SS QODTDTVOOOOCOOCOOOWOWOO 
=O OO NA UNE WPS O OD NA UNE WIN  O OOD NO UE WIN OOD NAME WN S(O OOVNOAU EWN OVOOnNou 


9 
¥ SMBITM = .SMBITM + 4; 
9 END; | 
0 | 
0 
. Search string. 
204 IF _.SEARCH_LENGTH NEQ 0 | 
205 THEN 
206 BEGIN 
207 SMBITMCSMBMSG$W_ITEM_SIZE] = .SEARCH LENGTH; 
208 SMBITMCSMBMSG$W"ITEM-CODE) = SMBMSGSR_SEARCH_STRING; 
44 aed Hy = .SMBITM + SMBMSG$S_ITEM_HEADER; | 
211 SEARCH LENGTH 
3g ~SEARCA_ADDRESS, 
21 ~SMBITM; ,.. SMBITM); 
214 D; 
$12 

16 
$i, Trailing zero item. 
219 SMBITMCSMBMSG$W_ITEM_SIZE] = 0; 


Be Be Be Be Oe Be Be Be Be Be Fe Be Se Se Be Se FH Se Be Se Se Se Se Se FH Se FH Se Se Ge Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Seas Se Fe Se Se eens 


v04-000 14-Sep-1984 7:15 JOBCTL.SRCIS S¥MB 10 IONT.B32;1 


13 
SYMBIONT Symbiont communication 16- -Sep-1984 99: 3: 14 AX-11 a? ss-32 V4.0- “235 Page Ps 


: 1220 53 SMB1TMCSMBMSG$W_ITEM CODE) = 0; ; 
; | 23 SMBITM = .SMBITM + SMBMSGSS_ITEM_HEADER; : 
:4 55 ; 
3 } ¢ 2 2$ Send the message to the symbiont. ‘ 
: 1226 ; 58 SMBMSG G_pesct] } SHBMSG ; 
: 1 37 59 0 . SMBMSG_DESCL1]; . 
3 1228 2260 SEND SS PMBIONT TMESSAGE (. rena, SMBMSG_DESC); 
; 1209 2261 
: 1230 6¢ 
3 1$3] 6 ' Update SMQ. 
: 1 é 64 i 
: 123 265 2 SMQCSMQSV_RESUMING) = 
+ 1234 2266 2 IF .ALIGNMENT_PAGES NEO SEF HEN SMQCSMQ$V_ALIGNING] = TRUE; 
3 ND; 
1235 2267 1 END: 
OOFC 00000 -ENTRY RESUME_SYMBIONT_TASK, Save R2,R3,R4,R5,R6,- ; 2138) 
5E FBF8 CE 9€ 00002 MOVAB <-1032(SP), SP : 
08 AE 03 BO 00007 MOVW #3, SMBMSG : 2183 
OA AE 01 90 00008 MOVB #1, SMBMSG+2 > 2184 | 
56 08 AC 00 OOOOF MOVL — SMQ, > 2185 
0B AE 0117. C6 +90 00013 MOVB 279(R6)., SMBMSG+3 ; : 
53 OC AE 9E 00019 MOVAB SMBMSG+4, SMBITM > 2186 | ; 
57 D4 0001D CLRL R7 + 2191 
10 AC DS OOO1F TSTL | ALIGNMENT_PAGES ; 
OD 13 00022 BEQL 1s ; 
57 D6 00024 INCL ; 
83 00040004 8F DO 00026 MOVL #962148, (SMBITM) + : 2194, 
B38 10 AC DO 00020 MOVL ALIGNMENT PAGES, (SMBITM) + : 2197 
14 AC D5 00031 1$: TSTL RELATIVE_PAG : 2204 
0B 13 00034 BEQL = 2$ ; 
83 002E0004 8F D0 00036 MOVL #3014660, (SMBITM)+ ; 3207 | 
BS 14 AC DO 0003D MOVL RELAT IVE_PAGE, (SMBITM)+ > 2210 
OC AC DS 00041 28: TSTL LAGS : 2217 | 
03 12 00044 BNEQ : | 
21 57 €9 00046 BLBC =—R7, _7$ ; 
83 002F0004 BF DO 00049 38: MOVL #3080196, (SMBITM)+ > 2220) 
63 D4 00050 CLRL (SMBITM) : 2223) 
03 Oc AC E9 00052 BLBC FLAGS, 4$ > 2224 | 
63 01 88 00056 BISB2 #1, ($MBITM) : 2225. 
03 57 9 00059 4$: BLBC. R7, 5$ > 2226 | 
63 02 88 9005¢ BISB2 #2, (SMBITM) > 2207 | 
03 Oc AC 01 a OO5F 5$ BBC #1, FLAGS, 6$ : 2228 
63 08 88 80064 BISB 8, (SMB fm) ; $209 
53 04 CO 00067 68: ADDL2 #4, SMBITM : 2230 
18 AC D3 0006A 7$: TSTL | SEARCH_LENGTH : 2236 | 
OD 1 69060 BEQL ; 
83 18 AC BO 00 $f MOVW SEARCH LENGTH, (SMBITM) + > 2239 | 
83 3 80 009 3 mMOVw #50, ( )+ ; 3340 
63 1c BC 18 AC 0076 MOVC3 SEARCH LENGTH, @SEARCH_ADDRESS, (SMBITM) + 2245 
83 D4 0007C 8$: CLRL (SMBITA) + > 2251 | 
| 


F 13 
Symbiont communication -Sep-1984 237: AX-11 Bliss-32 V4.0-74 P 40. 
: We=8ep-19be $o:87:15 — ERbactLosnedsvae lon .039; 1 “9 8) 
046 =A 8 aE H 7 MOVAB SMBMSG, SMBMSG_DESC+4 ; 58 
6E 5 400s AE 3 : SuBL 3 SMBMS -DESC+4, SMBITM, SMBMSG_DESC ; 23 
FA7D CF Ge EB 008C CALLS #2, SEND_SYMBIONT_MESSAGE : 
10 Ab 40 8F 88 00091 BISB2 #64, 16(R6) + 2265 
04 57 €9 00096 BLBC.—-R7, + 2266 
10 Ab 01 88 00099 BISB2 #1. 16(R6) ; 
04 0009D 9$: RET + 2267 


; Routine Size: 158 bytes, Routine Base: CODE + 05C8 
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Symbiont communication 1$-s2 1984 00:37:14 AX-11 Bliss-32 V4.0-74 Page 41 
04 12-8 08- 1 ope 1 He 15 JOBCTL.SRCISYMBIONT.B32;1 ° (10) 
; ' GLOBAL ROUTINE START_SYMBIONT_STREAM(SMQ_N,SMQ)= : 
: 1 'e4 . 
: 1240 ; 3 
3; 1241 ' FUNCTIONAL DESCRIPTION: ‘ 
s 1 tg ! This routine starts a symbiont stream. If necessary, it creates a ; 
3 : rb symbiont process and then sends the ‘'start stream'’ message. ‘ 
> 1245 ' INPUT PARAMETERS: ; 
; 1246 ; SMQ_N - Record number of SMQ. 
: ; rt } SMQ - Pointer to SMQ. 
3; 12469 ! IMPLICIT INPUTS: 
; 1250 : NONE 
; 1251 ! 
: 1$3¢ !' OUTPUT PARAMETERS: 
3; 125 : NONE 
3 1254 ! | 
; 1255 ! IMPLICIT OUTPUTS: 
; 1256 : NONE 
3: 1257 ! 
; 1258 i ROUTINE VALUE: | 
; 1259 ! Completion status. 
; 1260 : 
; 1261 ! SIDE EFFECTS: 
3 1s6¢ ‘ NONE 
: 126 : 
3 1264 leo 
3; 1265 | 
> 1266 BEGIN 
; 1267 MAP ; 
3; 1268 SMQ: REF BBLOCK; ! Pointer to SMQ 
3; 1269 LOCAL 
3; 1270 SCT: REF BBLOCK, ! Pointer to SCT 
3: 1271 STM, ' Stream index 
: 1272 PRCNAM_BUFFER: vec Torti; Otte.) Buffer for process name 
3 1273 PRCNAM_DESC: vECTOR(2), ' Descriptor for process name 
3: 1274 PRC ! Process name parameter 
> 1275 IMAGE_BUFFER: VECTOR(63,BYTE],’ Buffer for image name 
; 1276 I C: VECTORL2), ! Descriptor for image name 
3 1277 MAILBOX_BUFFER: VECTOR(E30.BYTEJ,' Buffer for mailbox name 
3; 1278 MAILBOX DESC: VECTOR(E2) ' Descriptor for mailbox name 
> 1279 GETDVI_CIST:  BBLOCKE164 i $GETDVI item List 
> 1280 OSB: VECTORE4,WORDJ, ' 1/0 status block 
; 1281 STATUS_1, ! Status return 
; % a6 STATUS ¢¢ ! Status return 
3; 128 STATUS_5, ! Status return 
3 1284 SMBMSG: BBLOCKCJBC$K_SMBMBXSIZJ,! Message buffer ; 
; \¢8? SMBITM: REF BBLOCK, ' Cursor for message items 
; 1686 SMBMSG_DESC: VECTOR(2); ! Descriptor for message buffer 
: 1288 
; 1938 OWN , Agi 
3; 1290 PRIVILEGE_MASK: BBLOCK(8) ! Symbiont privileges 
. 133) PSECTTCODE) PRESET( 
; 1298 CPRV$V_SETPRV] = TRUE); 


Symbiont communication 1$-$ep-19 - a8 99: 3! AX-11 BLi 


$$-32 V4.0-74 P 42 
984 NOBCTLe SRETSYHBYONT 03951 -_ 


MBIONT.B3 (10) 


Find a suitable symbiont. 


SCT = .SYMBIONT CONTROL; 
WHILE st NEQ 0 DO 


Locate a symbiont that is executing the desired image, that is not 


3 

! deletin 7 it self, and has an available stream. 

ir CHSEQL | 
CHERENA R(SMOCSMQS$T TASROCESSOR]), 

smo smast Proc SSOR 
CHSRCHAR(SCTCSCT_T proce Ssond). 

CT eset 1s PROCESSOR] + 
AND NOT -SETLSCT wv OOELETING). 


oo 


SOIEARE 


Create a symbiont process if needed. 
IF .SCTCSCT_L_BITMAP] EQL 0 
THEN 
BEGIN 
; Set up the process name as ‘‘SYMBIONT_nnnn’’. 


rs 


= 
COOONOUSWR—O 


PRCNAM ~DEscto) 
PRCNAMDESC(1 


ZALLOCATION(PRCNAM_BUFFER); 
RCNAM : 

SYR 1ORT COUNT 
rt A0( 


U ; 
-SYMBIONT_COUNT + 1; 


a a ee nd nd ed od sd 
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0 
4 
8 
8 9 
9 40 
10 341 AND NOT FFC( | 
4 34¢ BREF (0), ZREF(.SCTCSCT_B_MAXSTREAMS]), SCTCSCT_L_BITMAPJ, STM) 
31 344 EXITLOOP; 
14 345 
15 346 
16 34 ' Advance to next. 
318 348 écr SCTCSCT_L_FLINK) 
=. wLFLINKJ; 
319 350 END; 
320 351 
321 33¢ 
$56 35 ! No suitable symbiont found; create a new one. 
32 354 ' 
324 355 if .SCT EQL O 
325 356 THEN 
326 357 BEGIN 
327 358 SCT = ALLOCATE _MEMORY(); 
308 359 ScIescT L_FLINR] = .SYMBIONT_CONT 
329 360 SCTCSCT-B “MAX XSTREAMS] = SCT_R CHAXSTREANS | 
330 361 CHSMOVET ~ 
331 36¢ SMQ$S_PROCESSOR 
33¢ 36 shat snast $T_PROCESSOR) 
33 364 SCTCSCT_T~PROCESSORJ); | 
3 365 SYMBIONT stOnT ROL = .SCT; 
3 366 STM = 0;7 
3 36 END; 
i 
3 3 
3 
; 
3 
; 
3 
3 
3 


Ba Se Se Be Be Se Be Ge Ge Se Se Se Fe Se Ge Se Ge Ge Be Se Se Ge Se Se Se Ge Se Oe Se Ge Se Se Se Se Be Se Se Ge Se Se Se Se Se Se Se Se Se Se Se SH Se He Se Se Se Se ae 


—OOONOUS WO 0OOn 


v 


. P 
SYMBIONT Symbiont communication 1. $ep-1984 00:37:14 AX=-11 Bliss-32 V4.0-7 Page 43. Ss} 
vou=000 . 127860-1984 9:39:13 JOBCTL-SRCISYMBIONT .839; 1 9° (10) ve 
: 135 P 238 SDESCRIPTOR( 'SYMBIONT. !4ZL"), : 
: 1336 = PRCNAM_DESC, : 
: 133 P 38h PRCNAM”DESC ; 
; 1354 SYMBIONT COUNT) ; ; 
3 ae, : 
; } 2 58 ! Set up the image name as ‘'SYSSSYSTEM:name.EXE"’. : 
; 1359 5 90 {MAGE -pEstto} = TALLOCAT ION (IMAGE, BUFFER) ; | ; 
: 1360 > 233! IMAGE DESCC1) = IMAGE_BUFFER; | : 
i: 136¢ > 338 AOSDESCRIPTOR(* SYSSSYSTEM: !AC.EXE" ), ; 
3:1 P 2394 IMAGE _DESC, ; 
> 1364 P2399 IMAGE DESC, | 
1365 P 2396 CIF CRSRCHAR(SMOCSMOST PROCESSOR) EQL 0 | : 
; 1366 P 2397 THEN UPLIT BYTE (ZASCIC 'PRTSMB’) : 
; 1367 398 ELSE SMOLSMQST F PROCESSOR); | : 
: 13¢9 00 | ; 
; 1370 3401 Create the symbiont input mailbox. : 
: 137@ p $408 3 STATUS_1 = SCREMBX ; 
; 137 P 2404 3 CHAN=SCTCSCT_W MAILBOX, | : 
3 1374 p 3405 § MAXMSG=JBCSK ~SABMBXS1Z, | : 
> 1375 P 2406 BUF QUO= JBCSK_ SMBMAXSIZ : 
> 1376 2407 3 PROMSK=%B'11T1111100000000'); =! S:RWED, O:RWED, G, W | : 
> 1377 2408 3 If NOT .STATUS.1 | : 
<r al 
> 1380 2411 4 SYMBIONT CONTROL = .SCTCSCT_L_FLINK); | : 
; 1381 ghie 4 DEALLOCATE MEMORY (.SCT); : 
> 1382 2413 4 RETURN .STATUS_1; : 
> 1383 2414 3 END; | : 
1385 e163 | 
; 1358 seis 3 ; Get a descriptor for the mailbox device name. | : 
; 1388 2419 ; MAILBOX DESC " = 0; | : 
> 1389 2420 MAILBOX”DES = MAILBOX : 
; 1390 2621 3  GETDVI_CIST£O.0,16.0) = IAL LOCAT {ON (MAILBOX _BUFFER) ; | : 
> 1391 ge GETDVI-LISTC2,.0.16.0) = DVIS DEV | : 
; 1392 240 GETDVI-LISTC4.0.32.0) = MAILBOX_BUFFER; | : 
> 1393 2424 GETDVI“LIST£8,0,32,0) = MAILBOX_DESC; | : 
: 1394 425 GEIDVI-LIST 12,6,32,0) = 0; | : 
> 1395 P 2426 STATUS-2 = $GETDVIWC | : 
3 1396 P 2427 EFR=JBC$K_SYNC_EFN : 
; 1397 P 2428 CHAN=.SCTESCT_Q MAILBOX], | : 
> 1398 P 2499 ITMLST=GETDVI-LIST, | : 
; 1399 430 10SB=10SB) ; : 
: 1400 431 IF NOT .STATUS_2 : 
: 1402 “38 i BEGIN | ; 
> 140 434 4 SDASSGN(CHAN=, SCTLSCT W MAILBOX) | 3 
> 1404 435 4 SYMBIONT CONTROL = CStIesc ToL FLINKI; | : 
> 1405 436 4 DEALLOCATE_MEMORY(. SCT); | : 
; 1406 437 4 RETURN .STATUS_2; : 
; 140 438 3 END; : 
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END; 


} Update SMQ. 


SMOCSMQSL_STREAM_SCT] = .SCT; 
SMOCSMOS$B~STREAM- INDEX] = .STM; 
SMOLSMQSV~STARTING] = TRUE; 


| 


- JOBCTL.SRCJSYMBIONT. (10) 
3 439 : 
; 1409 440 ; 
; 9 red } The following loop is executed at most twice. ; 
; \¢ 208 PRCNAM = PRCNAM_DESC; : 
> 1461 444 WHILE TRUE DO ; 
3 1414 445 4 BEGIN ; 
; 1415 446 4 | ; 
3; 1416 447 & ' Create the symbiont process. " 
; 1417 448 4 i ; 
3 18 P 244 4 STATUS_3 = semper ( | ; 
3 19 P 2450 4&4 PIBADR=SCTCSCT_L_PIDJ, . 
3 0 P 2651 4 IMAGE=IMAGE_DESC : 
> 1421 P 43¢ 4 INPUT=MAILBOX_DESC : 
: g P 2453 4 OUTPUT=JOBCTLABX_DESC, : 
: P 2454 & ERROR=NLAO_DE : 
> 1426 P 2455 4 PRVADR=PRIVILEGE_MASK, | : 
3 5 P 2456 4 QUOTA=JBC_QUOTAS, ° 
; 26 P 2457 & PRCNAM=.PRCNAM ° 
3 1427 P 2458 4 BASPRI=.SMOQCSMQ$B_BASE_PRIORITY], | : 
; 1428 P 2459 4 STSFLG=. IMAGE_DUMP_STSFLG, ; 
3 34 2460 4 UIC=.JBC_UIC); ‘ 
3 0 see 4 : 
1 31 186 4 IF NOT .STATUS_3 ‘ 
3 3 see 4 THEN . 
: 3 464 5 BEGIN : 
3 2465 5 , : 
: 2466 5 !' Create failed. If the status is not ‘duplicate process name’, or : 
; 2467 5 ! if a create has already been tried with no name, give up. : 
; seen } } Otherwise, loop to try creation with no name. : 
b 470 5§ IF .STATUS_3<0,16> NEQ SS$_DUPLNAM OR .PRCNAM EQL 0 | . 
; 2471 5 THEN ‘ 
3 2472 6 BEGIN ; 
: 24735 6 SDASSGN(CHAN=.SCTCSCT_W_MAILBOX)); | + 
3 2474 6 SYMBIONT_ CONTROL = .SCTCSCT_L_FLINKI; ‘ 
: 2475 6 DEALLOCATE_MEMORY(.SCT); ° 
; 2476 6 SCAN_INCOMPLETE_SERVICES(ISRV_K_PURGE_SMQ, .SMQ_N); : 
3 2477 6 RETURN .STATUS_3; ; 
3 2478 5 END; 3 
; 479 § PRCNAM = 0; : 
3 480 5 END : 
: 481 4 : 
; rt; 5 BEGIN : 
3 48 5 ENTER_PROCESS _DATA(PDE_K_SYMBIONT, .SCTCSCT L_PIDJ); : 
3 484 5 QUEUE REFERENTE_COUNT = ~ QUEUE _REFERENCE_COONT + 1s | : 
3 2485 5 EXITLOOP; : 
; 486 4 : : 
3 487 3 END; 3 
3 488 5 
3 489 . 
: 490 . 
: i ; 
: 198 : 
3 494 . 


6 
6 
6 
6 


495 
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yee 600 . 13-808- 138. 00:35:18 ‘OBCTL SR Reisvae\o iit 84 31 . (10) | 
; 1465 138 SMQCSMOSV_STOPPED] = FALSE 
3 1098 49 
: 146 138 
: 1oo8 344 Update SCT. 
: 1296 501 BITVECTORCSCTCSCT_L_BITMAP] sTH] = RUE; 
: 1471 3 5 VECTORCSCTCSCT_L_GUEUESJ, .STM) = .SMQ_N | 
Py 1248 504 
: 1er ¥4 Message header for the ‘start stream’’ command. 
3 1476 $07 éMBMSG SMBMSG$W_REQUEST_CODE] = SMBMSGSK START STREAM | 
3 147 & SMBMSG(SMBMSG$B_STRUCTURE LEVEL] = SRORSG STRUCTURE, LEVEL; 
: 1478 509 SMBMSG[ SMBMSG$B_ STREAM INDEX] = .SMOCSMQ$B_STREAM_INDEX); 
3 sory 219 SMBITM = SMBMSG + SMBMSGS$S “REQUEST MAEADE R; 
3: 1481 21§ 
: re 1 51 ! Device name. 
: 148 514 i 
: 1486 2515 2 IF CHSRCHAR(SMQLSMOST_DEVICE_NAMEJ) EQL 0 | 
; 1485 516 2 THEN 
+ 1486 517 BEGIN 
+ 1487 518 SMBITMCSMBMSG$W_ITEM_SIZE] = CHSRCHAR(SMQCSMQST_NAME]); 
+ 1488 519 SMBITMCSMBMSGSW-ITEM-CODE] = SMBMSGSK_DEVICE_NAME; 
3 1697 3320 sme = ,SMBITA + SRSNSGSS. ITEM_HEADER; 
: 1491 2538 Bret Compncnnn grat peat “NANED)) 
3 1336 252 SMOCSM EJ] + | 
: 149 524 elIne me JeITAS 
: 1494 525 
: 1495 526 ELSE 
> 1496 2527 BEGIN 
: 1497 2528 SMBITMCSMEMSG$W_ITEM_SIZE] = CHSRCHAR(SMALSMQST DEVICE_NAME}); 
> 1498 3329 ; SMBITMCSMBMSGSW_ITEM-CODE] = SMBMSGSK_DEVICE_NAME; 
: 1499 2530 SMBITM = .SMBITM + SMBMSGS$S_{iTEM_HEADER; | 
; 1500 2531 MOVC3( 
: 1501 $332 BREF (CHSRCHAR(SMOCSMOST DEVICE _NAME])), 
3 1208 253 MOCSMOQST_DEVICE_NAM fo 71 
; 150 Sete ITM; >.. SMBITM 
3 1504 535 END; 
; 1505 238 
: 1506 53 
; 1507 538 ' Queue name. 
; 1508 539 i 
; 1509 540 SMBITMCSMBMSG$W_ITEM_SIZE] = CHSRCHAR(SMQC[SMQST_NAME)); 
: 1510 541 SMB 11M SMBMSGSWE ITEM mitts = SMBMSGSK EXECUTOR QUEUE; 
: 1511 34¢ SMBITM = .SMBITA + SASNSGSS. ITEM_HEADER; 
: late 54 MOVC3( 
> 151 544 BREF (CHSRCHAR(SMOLSMOST _ NAME})), 
: 1514 545 SMOCSMOST_ 
> 1515 346 .SMBITM; 7,, NAME ABITAS: 
: 1218 54 
3 151 238 
; 1518 54 ' Job reset modules. 
3; 1519 550 i 
: 1320 551 SMBITM = FETCH VARIABLE _1 
: 1521 552 SMO$S_JOB_RESET MAOBOLES.  macsnast _JOB_RESET_MODULES), 
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JOBCTL.SRC 


$2 
3 


SMBMSGSK_JOB_RESET_MODULES, 
.SMBITM)? 


IIS 
Nw 


Device control Library name. 


SMBITMCSMBMSG$W_ITEM_SIZE) = FCHARCOUNT(*SYSSLIBRARY:.TLB") + CHSRCHAR(SMOQC[SMQ$T_LIBRARY]); 
IF CHSRCHAR(SMOCSMOST LIBRARYJ) EQL 0 THEN SMBITMCSMBMSG$W_ITEM_SIZE] = %CHARCOUNT( 'SYSSLIBRARY:SYSDEVCTL. TL. 
SMBITMCSMBMSG$W_ITEM CODE] = SMBMSGSK_LIBRARY_ SPECIFICATION; 
snei tn = .SMBITM + SMBMSG$S_ITEM_HEADER; 


ZREF (ZCHARCOUNT ("SYSSLIBRARY:")), 
UPLIT BYTE(*SYSSLIBRARY:'), 


-SMBITM; ,,, SMBITM); 
IF CHSRCHAR(SMOCSMOST_LIBRARYI) EQL 0 


UPLIT BYTE (*SYSDEVCTL"), 
-SMBITM; ,,, SMBITM) 


ZREF (CHSRCHAR(SMO[SMOST_LIBRARY])), 
SMOCSMQS$T_LIBRARY) + 1, 
~SMBITM: 7,, SMBITM); 

.SMBITM = '.TLB!; 


C34 | 
ZREF (XCHARCOUNT('SYSDEVCTL")), | 
| 
| 
| 
SMBITM = .SMBITM + 4; 


Trailing zero item. 


SMBITMCSMBMSG$W_ITEM_SIZE 
SMB 1 TMCSMBMSG$W~ ITEM CODE 
SMBITM = .SMBITA + SMBMSG 


0; 
0: 
S_ITEM_HEADER; 


9.09 G9 CO. 09 09 09 09 00 09 SI INNIS NS NS SI IOP AAA AAAAO 


SESRAN SSS SPAN ES SSN ARIS oo wa Poo Ooo 


| 
Send the message to the symbiont. | 
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9 SMBMSG_DESC[1] = SG; 
9 SMBMSG-DESCLOJ = .SMBITM - .SMBMSG_DESC(1); 
3 SEND_SYMBIONT_MESSAGE(.SMQ, SMBMSGDESC); 
9 
9 SS$_NORMAL 
9 END: 
00666 .BLKB 2 | 
00 00668 PRIVILEGE ASK: . | 
40 00669 "BYTE 64 : 
066A -BLKB 6 
4C 5A 346 21 SF 56 GE 4F 49 42 4D 59 53 00670 P.AAB: ASCII \SYMBIONT_!4ZL\ ; 
00670 -BLKB 3 
00000000 00680 P.AAA: .LONG 13 : 
00000000 00684 .ADDRESS P.AAB ; 
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v04- 14-Sep- 37:15 JOBCTL.SRCISYMBIONT.B32;1 (10), 
2 43 41 21 3A 4D 45 56 53 59 53 2% 53 59 53 6 P.AAD: .ASCII \SYSSSYSTEM:!AC.EXE\ : 
69A BLK 
99000012 69C P.AAC: =LONG ; 
099000 * 0060 “ADDRESS P : 
42 4D 53 54 5 5 AG P.AAE: .ASCII <6>\PRTSMB\ : 
3a 59 «52 «(41 52 42 49 af 24 59 O6AB P.AAF: ASCII \SYSSLIBRARY:\ : | 
4C 56 43 56 45 44 53 59 06B7 P.AAG: ASCII \SYSDEVCTL\ : | 
-EXTRN SYSSFAO, SYSSCREMBX 
EXTRN SYS$6 SGETOVIW, SYSSDASSGN 
EXTRN CREPRC 
OFFC 00000 .ENTRY START_SYMBIONT_STREAM, Save R2,R3,R4,R5,R6,-; 2268 
R7,RB7RI,R10,RT1 : 
58 BB OAF «9E 00002 MOVAB P.AAA, Ril : 
5A 00000000" EF 9E 00006 MOVAB SYMBIONT_ CONTROL, R10 : 
5E F658 CE i 00000 MOVAB -1192(SPY, SP : 
56 6A D 00012 MOVL  SYMBIONT_CONTROL, SCT : 2328 
57 08 AC 00 0001 MOVL SMQ, R7 ~ + 2336 
59 0004 C7? i 00019 MOVAB 212(R7), RO : 
56 DS OOO1E 1$: STL = SCT t 2329 
24 13 00020 BEQL 4s 3 : 
51 69 9A 00022 MOVZBL (R9), R1 + 2336 
50 146 Ab 9A 00025 MOVZBL 20(SCT), RO : 2338 
00 005 C7 51 2D 00029 CMPCS R1, 213(R7), #0, RO, 21(SCT) : 
15 a6 0030 ; 
0D 12 00032 BNEQ 2$ ; 
09 04 Ab E8 00034 BLBS  4(SCT), 2$ > 2340 
A6 05 Ab 00 €B 00038 FFC #0, 5(SCT), 12(SCT), STM > 2342 
05 12 0003F BNEQ 3$ ; 
56 66 DO 00041 2s: MOVL (SCT), SCT : 2349 
D8 11 00044 BRB 1$ : 2329 
56 DS 00046 3$: TSTL SCT : 2355 
1B 12 00048 BNEG 46 4$ ; 
000000006 EF 00 FB 0004A CALLS #0, ALLOCATE_MEMORY : 2358 
56 50 DO 00051 MOVL RO. SCT : 
66 6A D0 00054 MOVL § SYMBIONT_CONTROL, (SCT) : 2359 
05 Ab 20 90 00057 MOVE #32, 5(STT) : 2360 
A6 69 ¢8 28 00058 MOVC3 #40. (R9), 50 SCT) : 2364 
6A 6 DO 00060 OVL SCT. SYMBIONT_CONTROL + 2365 
58 D4 00063 CLRL = STM > 2366 
0c Ab D3 00065 4$: TSTL  12(¢SCT) : 2372 
03 1 00068 BEQL 6 5$ : 
0149 31 0006A BRY «148 | 
—E8 AD OF dO 90060 5$: MOVL #15, PRCNAM_ DESC : 2378 
EC AD AD 9E 00071 MOVAB PRCNAM BUFFER, PRCNAM_DESC+4 : 2379 
AS AA OG 90076 INCL § SYMBIORT_COUNT ; 2380 
AG AA DD 00079 PUSHL SYMBIONT~COUNT : 2385 
E8 AD 9F O007C PUSHAB PRCNAM_DESC ; 
AD 9F OOO7F PUSHAB PRCNAM~DESC : | 
5B DOD 00082 PUSHL R11 : 
000000006 00 4 FB 0084 CALLS #4, SYSSFAO ; 
AO AD F p 0088 MOVL #63, IMAGE DESC : 2390 
AG AD AB AD 9 0008 MOVAB  IMAGE_BUFFER, IMAGE_DESC+4 : 2 31 
69 95 00094 TSTB —s- (RO) ; 2398 | 
08 12 00096 BNEQ 6$ ; | 
| 
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S$ 
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Be -1984 00:37:1 
tasep-19 4 993353] 


1 
1 
GLOBAL ROUTINE STOP_SYMBIONT_STREAM(SMQ_N,SMQ): NOVALUE= 


oo 
oz 
we 
> 
Ot 

a 
oy 


Message header. 
Shans snomsebacTAUET CODE] = _SMBMSG$K_STOP_STREAM; 


99 
00 
0 
0 
0 
0 
0 
0 
0 
0 


1 

2 
3 
4 
5 
6 
7? 
8 
9 
0 
1 

2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 


M 
SMBMSG[SMBMSG$B_STRUCTURE LEVEL] = SMBMSGSK STRUCTURE LEVEL; 
SMBMSGCSMBMSG$B_STREAM_INDEX] = .SMQCSMQ$B_STREAM_INDEX); 
SMBITM = SMBMSG”+ SMBMSGSS_ITEM_HEADER; 


Trailing zero item. 
SMBI TMCSMBMSG$W_ITEM_S1 


ZEJ 
SMBITMCSMBMSG$W_ITEM CODE) 
SMBITM = .SMBITM + SABMSGS 


0; 
S_ITEM_HEADER; 


! Send the message to the symbiont. 


] 
SMBMSG_DESC(1] = SMBMS 
SMBMSG_DESCLOJ = 


; 1568 238 1 

; 1569 99 1 

; 1570 600 1 !++4 

; 1571 601 1! 

: 12/6 one 1 ! FUNCTIONAL DESCRIPTION: 

: 132? oR? } This routine sends the ‘'stop stream'’ message to a symbiont. 
: 1575 605 1 ! INPUT PARAMETERS: 

; 1576 606 1! SMQ_N - Record number of SMQ. 

3; 1577 oo, % ¢ SmQ - Pointer to SMQ. 

; 1578 08 1! 

3; 1579 § 09 1! IMPLICIT INPUTS: 

: 1580 10 1! NONE 

3; 1581 2611 1! 

3 1286 2 \¢ 1 ! OUTPUT PARAMETERS: 

; 158 2613 1! NONE 

> 1584 2614 1! 

: 1585 2615 1 ! IMPLICIT OUTPUTS: 

3; 1586 2616 1! NONE 

3; 1587 2617 1! 

3; 1588 2618 1 ! ROUTINE VALUE: 

; 1589 2619 1! NONE 

3; 1590 2 1! 

; 1591 2 1 ! SIDE EFFECTS: 

3 1338 2 1! NONE 

3: 159 2 1! 

3: 1594 2 1 le 

3: 1595 2 1 

3: 1596 2 2 BEGIN 

3 1597 2627 2 MAP 

: 1598 2628 2 SMQ: REF BBLOCK; ' Pointer to SMQ 
; 19 2 2 LOCAL 

3 16 2 2 CT: REF BBLOCK ' Pointer to SCT 
: 16 2 2 SMBMSG: BBLOCKCJBC$k_SMBMBXSIZJ,! Message buffer : 
: 16 2 2 SMBITM: REF BBLOCK, ! Cursor for message items 
: i. § § SMBMSG_DESC: VECTOR(2); ! Descriptor for message buffer 
3; 16 2 2 

: 16 2 2 

3; 16 2 2 

3 16 2 2 

3 16 2 2 

3 2 2 

3; 16 $ $ 

3: 16 2 2 

: 16 2 2 

3; 16 2 2 

3: 16 2 2 

: 16 2 2 

3; 16 2 2 

3; 16 2 2 

3: 16 § 

; 16 

; 16 

: 16 2 

: 16 2 


POPRINONONY — tt IO 


G: 
.SMBITM - .SMBMSG_DESC1]; 


14 
SYMBIONT Symbiont communication 18- Sep-1984 00:37:14 AX-11 Bliss-32 V4.0-74 Page 52. SY 
yee 000 14- ~3ep-19 4 RE JOBCTL.SRC STRBYONT 03951 9 at) vO 
> 1625 655 2 SEND_SYMBIONT_MESSAGE(.SMQ, SMBMSG_DESC); 
: 1626 £36 me 
: 1627 65 
> 1628 658 ' Update SMQ,. 
> 1629 659 2: 
> 1630 660 2 SMOLSMOSV_STOPPING] = TRUE; 
> 1631 661 SMQCSMQSV—STOPPED] = TRUE; 
: 1632 662 1 END; 
0094 00000 .ENTRY STOP SYMBIONT _STREAM, Save R2 : 2598 
SE FCOO CE 9 00002 MOVAB =102%(SP), SP : 
6E 06 B80 00007 MOVW = #6, eMaMsé + 2638 | 
02. AE 01 90 OO000A MOVB #1, SMBMSG+2 + 2639 | 
52 08 AC DO O000E MOVL R2 + 2640 
03 AE 0117 C2 90 00012 MOVB 279(R2), SMBMSG+3 F 
50 04 AE 9E 00018 MOVAB SMBMSG+4, SMBITM + 2641 
80 D4 O00IC CLRL SMBITM) + 2646 
5E DD OOO1E PUSHL SP + 2653 
7E 50 6E C3 00020 SUBL SMBMSG_ DESC+4, SMBITM, SMBMSG_DESC + 2654 
4004 8F BB 00024 PUSHR > + 2655 | 
F767 CF 02 FB 00028 CALLS #2. “SEND SYMBIONT_MESSAGE ; 
11 A 06 88 0002D BISB2 #6. 17(R2) > 2661 
04 00031 RET > 2662 


; Routine Size: 50 bytes, Routine Base: CODE + 0942 


F 16 F 
- AX-11 Bliss-32 V4.0-74 Page 5 
as ae 1erep= 138s 9S: 35:1s PANETT Bliss Fe Ve O28 (12) 


GLOBAL ROUTINE RESET _SYMBIONT_STREAM(SMQ_N,SMQ): NOVALUE= 


144 
i 


; 16 1 

5 1635 1 

: 1839 

T N: " 

; i § 688 : jigeig e te aa the “‘reset stream'’ message to a symbiont. 
> 1640 669 1: j 

1823 676 : sates cmon - Record number of SMQ. 

: 1808 676 4% SMQ~ - Pointer to SMQ. 

: 73 1 

: 1ec8 or 1 | IMPLICIT INPUTS: 

: 1646 675 NONE 

: 18t8 677 1 | OUTPUT PARAMETERS: 

> 1649 678 NONE 

: 1829 680 1 i IMPLICIT OUTPUTS: 

; 1658 3681 NONE 

: 1822 e881 i ROUTINE VALUE: 

> 1655 268 ; NONE 

: i828 2686 1 ' SIDE EFFECTS: 

> 1658 687 1: NONE 

: 1659 2688 1 | 

: ieer ee 

; 1668 2691 2 BEGIN 

4 1eee $63 § f SMQ: REF BBLOCK; ' Pointer to SMQ 

; 1862 $03¢ $ a SCT: REF ' Pointer ae SCT butt 
: MSG: e buffer 
PAE = Se mses ares Bree eaten) Pereeps netee saaag 
: i665 2698 2 SMBMSG_DESC: VECTORL2); Descriptor for messag 
We Be 

: 1859 2701 2 Message header. 

: 1et7 ] = SMBMSG$K_RESET_ STREAM; 

+ 1858 2708 Sronse sensege- STRUCTURE LEVEL " srensch SSURUCTURE LeveL: 

: ST 

: 1899 2706 SmBITR ay ty CmBMSGSS “REQUEST_HEADER; 

> 1678 707 

: 1880 2708 Trailing zero item. 

> 1681 Ps 

> 1682 2711 SMBITMCSMBMSG$W_ITEM_SIZE] = 0; 

4 W-ITEM"CODE) = 

: 1eb2 $718 eine wcmita. SMBMSG$S_ ITEM. HEADER; 

+ 1685 2716 

: 1889 ar : Send the message to the symbiont. 

+ 1688 717 

: 718 éMBNSG _DESCL1] = SMBMSG; 

: 1950 erie SMBMSG_DESCLOJ = .SMBITM - .SMBMSG_DESC(1); 


14 
SYMBIONT Symbiont communication 18-46 -1984 37:14 AX-11 Bliss-32 V4.0-74 Page 54. SY 
ea ty bakes ri He Pe he 912) vo 
; 1691 ? 0 SEND_SYMBIONT_MESSAGE(.SMQ, SMBMSG_DESC); | 
j 1698 7 ¢ 
3: 1694 7 ! Update SCT. 
> 1695 726 i 
: 1696 725 2 SCT = .SMQCSMOSL_STREAM SCT): 
3; 169 726 SI TVECTORD aC TESCT L RESETTING) . SMQCSMOQSB_ STREAM — = TRUE; 
> 1698 727 2 VECTORLSCTCSCT_L_GUEUES), .SMOCSMQ$B_STREAM_INDEXT] = 0; 
; 1699 728 1 END; 
| 
0004 00000 «ENTRY RESET_SYMBIONT_STREAM, Save R2 3 2s 
SE FCOO ce 9E 90002 MOVAB -1024TSP), SP : 
6E 02 BO 0000 MOVW #2, SMBMSG + 2703 
02 AE 01 90 O000A MOVB #1, SMBMSG+2 + 2704 
52 08 AC 00 90005 MOVL SMa, + 2705 
03 AE 0117 C2 90 0001 MOVB 279(R2), SMBMSG+3 F 
50 04 AE 9E 00018 MOVAB SMBMSG+4, SMBITM + 2706 
80 04 0001C CLRL _ (SMBITM)+ : 2711 
5E DD OOO1E PUSHL SP : 2718 
7E 50 6— C3 00020 SUBL SMBMSG_DESC+4, SMBITM, SMBMSG_DESC : 2719 
4004 8F BB 00024 PUSHR #*M<R27SP> : 2720 
F735 CF 08 FB 00028 CALLS oe SEND_SYMBIONT_MESSAGE 3 
51 OOFC C2 DO 0002D MOVL  252(R2),~SCT t 2725 
50 0117 C2 9A 00032 MOVZBL 279(R2). RO : 2726 
00 10 Al 50 €2 00037 BBSS RO, 16(SCT), 1$ : 
3¢ A140 D4 0003C 1$: CLRL  60(SCT)CROI + 2727 
04 00040 RET : 2728 


; Routine Size: 65 bytes, Routine Base: CODE + 0974 


H 14 
Symbiont communication 16-Sep-1984 00:37:14 AX-11 Bliss-32 V4.0-74 Page 55. SY 
, at) Akt ee PP th 9435 


Fa 
Se 


SMBITM: 
REQUEST_RESPONSE, 


o 
NN 
AAO 
ws 


Symbiont request response 


: 170) f 4 } ROUTINE PROCESS_SYMBIONT_MESSAGE (SMQ_N,SMQ,SCT): NOVALUE= 

3 1708 731 1 S44 

; 17 7 § 1! 

; 1705 7 1 ! FUNCTIONAL DESCRIPTION: 

: 178 f ¢ } This routine processes a symbiont response message. 

; 1708 7 $ 1 ! INPUT PARAMETERS: 
; 1709 7 13 SMQ_N - Record number of SMQ. 

3; 1710 738 61 SMQ - Pointer to SMQ. 

3; 1711 is, 3} SCT - Pointer to SCT. 
3 ar; 740 1! 

3; 171 741 1 ! IMPLICIT INPUTS: 
; 1714 ms 1 3 MBX - Pointer to buffered mailbox message. 
3 1715 743 1! 
: 1716 744 1 ! OUTPUT PARAMETERS: 
3 1717 745 1! NONE 
: 1718 746 1! 

3: 1719 747 1°! IMPLICIT OUTPUTS: 

3 1760 748 1! NONE 
: 1721 749 «1! 
; \7s¢ 750 1 ! ROUTINE VALUE: 
: 172 751 1! NONE 
: 17246 13g 1! 
3 1725 753 1! SIDE EFFECTS: 
: 1726 754 1! NONE 

s 1727 755 1! | 
; 1728 a | 1 !-- 
: 1763 757 «#1 

3: 1730 758 2 BEGIN 
3; 1731 759 2 MAP , | 
3; 1732 760 2 SMQ: REF BBLOCK, : Pointer to SMQ 
: 1733 761 2 SCT: REF BBLOCK; ! Pointer to SCT 

3: 1734 762 2 LOCAL 
: 173 3 REF BBLOCK, Cursor for symbiont message 
: 17 2 

3 17 2 

3 17 2 

3: 17 

3s 17 

: 17 

3; 17 

s 17 

s 17 

3: 17 

3: 17 

3; 17 

3 17 

3 17 

3; 17 

3; 17 

3 17 

3 17 

3; 17 

3; 17 

; 17 


' 
' 
37 CONDITION_VECTOR: VECTORC3), ' Status of current request | 
38 66 SRQ_TYPE, ' SRQ type to be completed 
39 67 SJH_N, ' Record number of SJH 
40 768 SJH: REF BBLOCK; ! Pointer to SJH 
41 769 
rt, 770 
4 771 SMBITM = .MBX + SMBMSG$S_REQUEST_HEADER; 
4&4 ure REQUEST RESPONSE = SMBMSG$K_TASK STATUS; 
45 77 CONDITION_VECTORCO) = JBC$_RNORMAL; 
46 774 2 CONDITION-VECTOR(1) = 0; 
47 775 CONDITION_VECTOR(2) = 0; 
48 re 
49 77 
29 ore Read the current job record, if any. 
5 7e0 SJH_N = .SMQCSMQS$L_CURRENT_LISTJ; 
33 u 1 2 IF 7SJH_N NEQ 0 THEN SJH ="READ_RECORD(.SJH_N); 
55 7 : . : 
56 784 ' Process the message's item list. 
57 785 : 


i 
s 


14 
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1e-8ep-19 4 a EE: JOBCTL. RCISYMBIONT .B3 $7 age 438 ve 


| 


7 $ WHILE .SMBITM LSSA .MBX_END DO 
7? BEGIN 

788 

789 


e of current item 
e of current item 


--O 
x.a 


79 Get the size and item code of the current item. 


795 iTEM_SIZE = .SMBITMCSMBMSGS$W_ITEM_SIZE]; 
ITEM-CODE = .SMBITMCSMBMSG$W-ITEM-CODE]: 
79 SMBITM = .SMBITM + SMBMSG$S_ITEM_READER: 


800 } Process the item. 
280 CASE. 1TEM_CODE FROM 0 TO SMBMSG$K_USER_NAME OF 


CINRANGE, OUTRANGE): 
CONDITION_VECTORCO] = JBCS_INVMSG OR STSS$K_ERROR; 


0): 
EXITLOOP; 


seater”) 17 slaamamanil aaa citi 


Font eee EQL SMBMSG$S_ACCOUNTING_DATA 


BEGIN 
SMQCSMQ$SL_ACM GETCNT] = 
.SMQCSMQSC_ACM GETCNT] + .SMBITMCSMBMSGS$L_RMS_GETSJ; 
SMQCSMQS$L_ACM GIOCAT) = 
° SMQSC_ACM_QIOCNT] + .SMBITMCSMBMSGS$L_QI0_PUTS); 
ss ACM_PAGECNTI = 
SMOCSMQSC_ACM_PAGECNT] + .SMBITMCSMBMSGSL_PAGES_PRINTED]; 
5 


SMOCSMOSL_ACM SYMCPUTIM) = 
om ~SMQCSMOQSC_ACM_SYMCPUTIM] + .SMBITMCSMBMSGS$L_CPU_TIME]; 
END; : 


CSMBMSG$K_CHECKPOINT_DATA): 
sah 


POPOPOPOPORPIPOPININPIPIPINPIPINPIAIPIPINOPONo Po NPononofnony 


$3 


AL 

SAVED_CHECKPOINT: BBLOCKCSJH$S_CHECKPOINT); 
IF .SJH_N NEQ 0 
THEN 


ge 


SEeeZS 
at ed ed ed 
fwn—o 
Rononononononony 


BEGI 
CHSMOVE ( 
SJH$S_CHECKPOINT 
SJHLSJH$T_ CHECKPOINT), 
SAVED_CHECKPOINT); 


3; 3 
3 3 
3 7 
3 7 
3; 7 
3; 7 
_ 
3; 
; F 
3; 1 
3; 7 
3 7 
3; 3 
3; 7 
, 7 
3 7 
> 
3 
3 3 
3 3 
3 
3 7 
3; 3 
3 
5; 7 
3 3 
3 
3} 
3 7 
3; 1 
3; 7 
3; 7 
3% 
3 7 
3 
3: Y 
3; 7 
3; 
3% 
3 7 
3 7 
: 7 
; 3 
3 
g 1 
3 7 
3% 
3 7 
3; 7 
3 
3 Y 
3 7 
3 7 
3 7 
3% 
: 
3 3 


BBE FWWINWIW WWIII AIR NININININININIDN 2 2 OO Oe SS OO 
M—OOONOAUES WN “OOOO UES WN“ OVDONAULS WN —O0OW 
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Seka 


: 1815 43 CHSFILL(O, SJHSS_CHECKPOINT, SJHCSJHS$T_CHECKPOINTJ); 
3 1817 at? IF STORE . VARIABLE _DATA( 

> 1819 847 Sui § CHECKPOINT 

: 1820 B48 HCSJH$T CHECKPOINT, 

; 1821 4 Sym K_CHECKPOINT, 

: 18 é 850 v , 

We SE ¥ 

> 1825 HE 5 DEALLOCATE_VARIABLE_DATA( 

: 18 § B94 3 SJH$S_CHECKPOINT 

: 18 f 899 3 SAVED- CHECKPOINTS 

> 1829 Bee 5 CHSMOVE ( 

ap HBG iamearaatt 

; 183¢ 860 5 aveesnet c yt) 

: 183 3861 4 ; 

: 1834 6¢ ; END; 

we HG 

3 1837 2865 3 CSMBMSG$K_CONDITION_VECTOR]: 

: 1839 seer CHS COPY ( 

; 1840 2868 4 .ITEM_SIZE, .SMBITM, 

3 184¢ 2870 4 ZALLOCATION(CONDITION_VECTOR), CONDITION_VECTOR); 
> 184 2871 3 D; 

aS BAY 

; 1846 287% H CSMBMSG$K_DEVICE_STATUS): 

: 18468 2876 4 IF item. SIZE EQL SMBMSG$S_DEVICE_STATUS 
OHA ” 

+ 1851 2879 5 SMQ SMasy LOWERCASE] = FALSE; 

: 185¢ 2880 § SMOCSMQSV-REMOTE) = FALSE; 

> 185 2881 5 SMOCSMQSV~SERVER] = FALSE; 

> 1854 388¢ 5 QCSMQS$V~STALLED) = FALSE; 

: 1855 2883 5 SMOCSMQSV-TERMINAL] = FALSE; 

> 1856 2884 5 SMOCSMQ$V~UNAVAILABLE) = FALSE; 

+ 1857 2885 5 F .SMBITACSMBMSGSV LOWERCASE 

3; 1858 856 2 THEN SMQCSMQSV_COWERCASE) = TRUE; 
: 1859 88 I - SMB ITAL SHBRSGSO PAUSE TASK) 

: 1860 2888 5 N SMOQCSMQ$V_PAUSED] = TRUE; 

+ 1861 889 5 IF SABI TALSMBMSGSU REMOTE] 

: 1862 890 5 TH CSMQ$V_REMOTE] = TRUE; 

> 1863 2891 5 IF -SABITACSRERSGSO SERVER) 

> 1864 289¢ 5 MOCSMQ$V SERVER] = TRUE: 

: 1865 2893 5 IF SRB ITACSMBASGSO STALLED) 

> 1866 2894 5 CSMQ$V_ STALLED) = TRUE; 
+ 1867 895 3 IF .SMBITMCSMBMSG$U_STOP STREAM) 

+ 1868 896 THEN SMQCSMQSV £D] = TRUE; 
: 1869 897 5 IF .SMBITMCSMBMSGS$O_T ERMINAL) 

: 1870 898 3 THEN SMOCSMQ$V_ TERMINAL) = TRUE; 
: 1871 899 IF SMB] TRCSMBMSGSO., ERAVAITABLE! 
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1. THEN SMQCSMQ$V_UNAVAILABLE] = TRUE; 


se 
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CSMBMSGSK _MAXIMUM_ STREAMS]: 
IF .ITEM_SIZE EQL 4 
np: 3 TESCTB.MAXSTREAMS = ..SMBITM; 


CSMBMSG$K_REFUSE_REASON]: 
BEGIN 


LOCAL 
SAVED_REFUSAL_REASON: BBLOCKCSJH$S_REFUSAL_REASON3; 


IF .SJH_N NEQ 0 
THEN 
BEGIN 
CHSMOVE ( 
SJH$S_REFUSAL_REASON, 
SJHCSJH$T_REFOSAL_REASON], 
SAVED_REFOSAL_REASON) ; 
CHSFILL(O, SJHSS_REFUSAL_REASON, SJHCSJHS$T_REFUSAL_REASON)) ; 


IF STORE VARIABLE _DATA( 


.SJH 
SJH$S_REFUSAL_REASON, 
SJHCSJH$T_REFOSAL_ REASON], 
SYMSK_REFOSAL_REASON, 
~ITEM~SIZE, 

. SMBITM) 


N 

DEALLOCATE_VARIABLE_DATA( 
SJH$S_REFUSAL_REASON 
SAVED REFUSAL REASON) 


SE 
CHSMOVE ( 
SJH$S_REF 
SAVED REF 
SJHCSJHST 
SJHCSJHSV_REFUSED 
END; 


END; 


L_REASON, 
L_REASON, 
FOSAL_REASON)); 
= TRUE; 


uw 1! CC 
Dun 
m>> 


CSMONS ESE REQUEST _RESPONSE 3: 


I ae EQL 4 
IF ..SMBITM GEQU SMBMSGSK PAUSE _TASK 
AND ..SMBITM LEQU SMBMSGSR_TASK-STATUS 


REQUEST_RESPONSE = ..SMBITM; 
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; 1929 957 END; 
; 19350 958 
; 1931 959 

: 193¢ 960 TES; | 
3; 19 961 
3; 19 96 | 
3 1935 96 SMBITM = .SMBITM + .ITEM_SIZE; 

; 19 964 END; | 
: 1937 965 
: 1938 966 

: 1939 967 ! Update state based on the request status. 

; 1940 968 2 | | 
: 1941 969 SRQ_TYPE = 0; 
; 1366 970 CASE .REQUEST_RESPONSE FROM SMBMSG$K_PAUSE_TASK TO SMBMSGSK_TASK_STATUS OF 

3 194 971 SET 
3 1944 972 

3: 1945 297 
3 1946 2974 CSMBMSG$K_PAUSE_TASK): 

: 1947 2973 GIN 

3 1948 976 3 IF .CONDITION_VECTOR(OJ 

3 1949 2977 THEN 

; 1950 2978 SMQCSMQ$V_PAUSED] = TRUE; 

: 1951 2979 SMQCSMQ$SV_PAUSING] = FALSE; 

3 1928 2980 END; 

3; 195 2981 

3 1954 298 

3: 1955 2983 2 CSMBMSG$K_RESET_STREAM): 

: 1956 2984 2 0; 
: 1957 2985 2 

> 1958 986 2 
: 1959 987 CSMBMSGSK_RESUME_TASK]: | 
; 1960 2988 
: 1961 2989 IF .CONDITION_VECTORCO] 
3: 1962 2990 3 THEN 

> 1963 2991 4 BEGIN | 
3 1964 2992 4 SMQCSMQ$V_OPERATOR_REQUEST] = FALSE; 

3 1965 2993 4 SMQCSMQ$V-PAUSED] = FALSE; 
: 1966 g998 4 if . SMQCSMQS$V_ALIGNING] THEN SMQCSMQ$V_PAUSED] = TRUE; | 
: 1968 2996 3 SOL SMOV ALIGNING) = FALSE; 
3 1969 2997 3 SMQCSMQ$V_RESUMING) = FALSE; 
: 1970 2998 § ND; 
: 1971 999 | 
: 1976 000 
: 197 001 CSMBMSG$K_START_STREAM): 
: 1974 30 BEGIN 
: 1975 00 SRQ_TYPE = SROQSK_START_SYMBIONT; 

: 1976 3004 SMOTSMQ$V_STARTING) = FALSE: 
: 1977 005 IF NOT .CONDITION_VECTORCLO 
: 1978 006 THEN 3 
: 1979 007 4 BEGIN 

: 1980 008 4 IF .SMQCSMQ$B_STREAM_INDEX] GTRU .SCTCSCT_B_MAXSTREAMS] 

: 1981 009 4 THEN 

; 1988 010 5§ BEGIN 

: 198 011 5§ BITVECTORCSCTCSCT_L_BITMAP], .SMQCSMQ$B_STREAM INDEX) = FALSE; | 
3 1984 218 5 VECTORCSCTCSCT_L BYEUES} . SMQCSMO$B_STREAM_INDEXJ) = 0; 
: 1985 013 5 CONDITION_VECTORCO) = START_SYMBIONT~STREAMT.SMQ_N, .SMQ); 
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IF .CONDITION.VECTORCO] THEN RETURN; | 


ELSE 
are = TRUE; 


a283 ¢ 


wooo 


END; 


CSMBMSGSK_START_TASK): 
IF .SJH_N NEQ 0 
SJHLSJHSV_FILE_STARTING] = FALSE; | 


IF NOT .CONDITION_VECTORCO) 
OR .SJHCSJHSV_REFOSED] 


REQUEST_RESPONSE = SMBMSGS$K_TASK_COMPLETE 


BEpeEesggegegsees 


BEGIN 
ae OPERATOR_REQUEST]J 


sss 


BEGI 
SMC SMOSV PAUSED] = FALSE; ! Temporarily cleared (v03-01 
! Temp. added (v03-01 
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3 

7 3 

$ : 
010 3 smatsmasy “OPERATOR_REQUEST) = FAL 
ot H IF H_N-NEQ 0 TH NEN N OPERATOR_REQUEST(.SMQ, .SJH); 
O18 3 END: 
014 3 
015 3 
016 3 
O17 : CSMBMSGSK STOP_STREAM]: 
019 3 BITVECTORESCTCSCT L_BITMAP], .SMQCSMQ$B_STREAM_INDEX]] = FALSE; | 

2020 3 ve CT TORESCTESCT | L_GUEUVES], .SMQCSMOQ$B STREAM INDEX]) = 0; | 

2021 3 BITMAP] EQi 0 THEN SCTCESCT_V_DELETING] = TRUE; 

2022 305 Sma SmOSi STREAM. SCT) = 0; 

2023 305 SMOCSMQSB_STREAM_INDEX) = 0; 

g0e% 305 MOCSMQS$V-PAUSED] = FALSE; 

2025 3 5 SMOCSMQSV"STALLED] = FALSE; 

206 5 SMOLSMOSV-STOPPING) = FALSE; | 

2028 5 | 

g0¢9 57 
030 38 CSMBMSGSK STOP_TASK, SMBMSG$K_TASK_COMPLETE): 

2032 Hits IF .SMOCSMQSV PAUSING] THEN SMQCSMQSV_PAUSED] = TRUE; 
03 3061 na SMQ$V_ALIGNING = FALSE: | 
034 306¢ mat Smas$v~ ~OPERATOR “REQUEST FALSE; 

035 06 Sha SMO$V~PAUSING]~= FALSE; 
036 064 Sma SMQSV “RESUMING) = FALSE: 

037 065 END; 
038 066 
039 06 

040 068 CSMBMSGSK_TASK_STATUS): 

041 069 0; 

042 070 
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; 2043 071 
3 2044 ore TES; 
>; 20465 07 
3 bee Bre 
3 See Bf? } If an incomplete service has completed, notify the requestor. 
; oe8 O77 IF .SRQ_TYPE NEQ 0 
; 2051 ors SCAN inconmy ETE oe 
; O26 080 TSR SYMBYTONT 
; 205 081 > SmO-N- sees 
3; 2054 oe¢ ~SRQ_TYP 
: 2055 0 *2ONDITION.. VECTORLO)); 
; 2056 084 
: 2057 085 
3 F bae If the stream is not available for new work, we are done. 
; 2060 P 3088 if NOT ONG OF . ( REQUEST_RESPONSE, 
; 2061 P 3089 BMSK 
3 $066 P 3090 SHBMSG $k “START STREAM, 
; 206 P 3091 SMBMSGS$K_ST 
3: 2064 $008 SMBMSGSK_ TASK COMPLETE) ) 
3; 2065 $03 THEN | 
; 2066 094 BEGIN 
3 2067 3095 IF .SJH_N NEQ 0 THEN REWRITE_RECORD(.SJH_N); 
3; 2068 $338 RETURN; 
5 so 097 END; 
3; 2070 3098 
: 2071 3099 ein Rage | 
3 O78 $108 H Handle multi-copy and multi-file situations. 
: $Oy2 $102 2 IF .SJH_N NEO 0 
3 sore 310 THEN 
> 2076 3104 BEGIN 
; spre *105 
; 2078 3106 ! Update the job status with the received status. | 
3 side see 3 \ 

080 108 3 .SJHCSJHSL_CONDITION 1] EQL 0 
; 2081 3109 4 i OS jHESINSE CONDITIOR_ 1] AND NOT .CONDITION_VECTOR(O]) 
3 sone 3110 oHEN 
; 208 3111 ( | 
: sone \1¢ SJH$S_CONDITION VECTOR, 
3; 2085 11 CONDITION N_VECTO OR 
3 2086 114 SSHESJNSL “CONDITION_1}); 
3: 2087 115 
3; 2088 116 
3; 2089 117 IF .SJHCSJH$SV_REFUSED] 
3; 2090 118 THEN 
; 2091 119 4 GIN 
: O38 120 4 roars GETQUI_DATA(.SJH_N, .SJH); 
; 209 121 4 ENQUEUE JOB(.SJH_N, gBif) 
3; 2094 1 g 4 SMmQ SMQ$L_CUR ENT_LIST] = 9: 
3; 2095 12 4 a SMQSL_CURRENT_LIST_END] = 0; 
> 2096 124 4 MOC SMQ$B~CURRENT-JOB_COUNT) = 0; 
3; 2097 125 4 END 
3; 2098 1 § 4 
; 2099 127 4 
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128 ft SE IF .SJHCSJH$V_ABORTED] 
129 THEN 
130 BEGIN 
131 UPDATE _GETQUI_DATA(.SJH_N, .SJH); 
136 or hee JOB(TSJH LN, .SJH, :SMQ, 0); 
134 SMQ SMQSL_ _CURRENT_LIST] = 
135 SMQCSMQ$L_CURRENT_ LIST END]. = 0; 
136 SMOLSMQ$B~CURRENT~JOB_COUNT] = 0; 
137 END 
38 
39 | 
BEGIN 
LOCAL | 
QR_N, ! Record number of SQR 
SQR? REF BBLOCK; ! Pointer to SQR 


SQR = READ_RECORD(SQR_N = .SJHCSJHSL_CURRENT_FILE_LINK]); 


KS] + .SQRCSQR$L_FILE_SIZE); 


Heat H$B_JOB_COPTES_CAKP 
at SJH$B-FILE_COPIES CHK 
DEALLOCATE_VARTABLE_DATA( 
S_CHECKPOINT 
SJHCSJH$T_CHECKPOINT)); 
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SJHCSJH$B_FILE_ COPIES DONE] = .SJHCSJH$B_FILE_COPIES_DONE] + 1; 
IF aaa FILE_COPIES_DONE] GEQU TSORES GRSB _FILE_COPIESJ 
BEGIN | 
IF .SQRCSYMSL_LINK] EQL 0 
THEN cn | 
7 SFA SJHSB JOB_COPIES DONE] = .SJHCSJH$B_JOB COPIES_DONE] + 1; 
4 Fa - SJHCSJH$B_JOB_COPIES_DONE] GEQU .SJACSJA$B_JOB_COPIES] 
0 BEGIN 
1 RELEASE RECORD (. SOR_N) ; 
¢ UPDATE_GETQUI_DATA(<SJH_N, .SJH); 
? Tht pe yoR (7 TSJH_N, .SJH, .SMQ, 0); 
5 SMOTSMQSLCURRENT_LIST] = 0; 
6 ne SMQS$L~CURRENT_LIST_END] = 0; 
7 QCSMQ$B~CURRENT-JOB_COUNT) = 94; 
$ END 
0 BEGIN 
1 LOCAL 
¢ SQR_N2, ! Record number of SQR 
Z SQR_2: REF BBLOCK; ! Pointer to SQ 
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1 185 QR_2 = READ _RECORD(SQR_N2 = - SJHCSJHSL_FILE LIST): 
1 1 § SJHESJHS$SB_FICE.COPIES_DONEJ = 0; 
1 1 TART_SYMBIONT- TASK ( 
1 188 -SMQ_N, .SMQ, 
1 1 ~SJH_N, .SJH 
-SQR-N2, .SQR_2); 
$1 1 END 
1 1 ELSE 
1 1 BEGIN 
1 1 LOCAL 
1 1 SQR_N2, ! Record number of SQR 
| | SQR-2: REF BBLOCK; ! Pointer to SQR 
1 SQR_2 = READ_RECORD(SQR_N2 = .SQRCSYMSL_LINK]); 
2 SJHUSJH$B_FICE_COPIES_DONEJ = 0; 
START_SYMBIONT_ TASK ( 

-SMQ_N, .SMQ, 

~SJH_N, .SJH 

-SQRIN2, .SQR_2); 


END 


BEGIN 
case yg ane 


SSUH"N. .SJH, 
-SQR"N, .SQR); 
END 


END; 
END; 
Rewrite the job header, if any. 
if .SJH_N NEQ 0 THEN REWRITE_RECORD(.SJH_N); 


: Find the next work item for the symbiont. 
a e SRBC SROSS CURRENT _J08 COUNT D EQL 0 
4 - SMQCSMQ$V_STOPPED) 
STOP_SYMBIONT_STREAM(.SMQ_N, .SMQ) 
FIND _PENDING_JOBS(.SMQ_N, .SMQ); 
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MIMIPIPOPU PoP PoRPoPoPporfrerfornorny 
oo 
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GLOBAL ROUTINE SYMBIONT_SERVICE: NOVALUE= 
le¢ 
' 
FUNCTIONAL DESCRIPTION: 
This routine processes the message type: 
MSG$_SMBINI symbiont has completed assignment 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
MBX - Pointer to buffered mailbox message. 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 
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2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
34 2 BEGIN 
35 2 LOCAL 4 
$9 $ REF BBLOCK; ! Pointer to SCT 
38 2 
#4 $ Validate the message structure level. 
41 2 IF .MBXCSMBMSG$B_STRUCTURE_LEVEL] NEQ SMBMSGS$K_STRUCTURE_LEVEL 
og $ OF :ROXUSABASGSB_STREAR_ INDEX GEQU SCT_K_MAXSTREAMS 
44 2 BEGIN 
45 2 SIGNAL (JBCS_INVMSG OR STSSK_ERROR); 
46 2 RETURN; 
47 2 END; 
eg 
50 $ ! Search the symbiont control table for the PID of the process that sent the 
251 2 ! message, which is in the second longword of the I0SB. If found, locate the 
$26 $ } queue corresponding to the stream identifier. 
254 2 SCT = .SYMBIONT_ CONTROL; 
255 2 WHILE .SCT NEQ 0 DO 
256 2 GIN 
257 2 IF .SCTCSCT_L_PIDJ EQL .MBXCACMSL_PROCID) 
258 2 THEN 
259 2 BEGIN 
260 2 LOCAL 
261 2 wN. ! Record number of SMQ 
262 2 : REF BBLOCK; ! Pointer to SMQ 
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Update SCT for a resetting stream. 
If gBITVECTORCSCTCSCT_L_RESETTING, - MBXCSMBMSG$B_STREAM_INDEX]] 


OO000 
VUEWnN—oO 
te et eee 


04 

; 2263 

>; 2264 

; 2265 

5569 

; 2268 S | 
; 9 38 BEGIN 
H 0 9 BTEC TORESETESE TL RESETTING -MBXCSMBMSG$B_STREAM Py ee = FALSE; 
: 71 38 TF vectee SCTLSCT_L ste tad ‘ Dek, rpnsese_sTRE AA INBEXJ] = FALSE; 
: 7 9 IF_.SCTCSCT_L_BITMAP] EQL 0 THEN SCTCSCT_V_DELETING] = TRUE; 

: 2e7 00 5 RETURN; 

> 2274 01 4 END; 

3; 2e75 O¢ 4 
; 2276 03 4 | 
; 2277 304 4 ! Get the queue header corresponding to the stream index, and ensure 

; sf8 $302 ? } that it is an active stream. 
; 2280 3307 4 SMQ_N = .VECTORCSCTCSCT_L_QUEUES], .MBXCSMBMSGSB_STREAM_INDEXJ]; 

; 3281 3308 4 IF 7SMQ_N NEQ 0 

; see 309 4 THEN 

: 228 3310 5 BEGIN 

3 2284 3311 5 

3; 2285 $318 5 ! Read the queue header. | 
3; 2286 3313 5 ! | 
: 2287 3314 5 LOCK_QUEUE_FILE(); | 
; 2288 3315 5 SMQ = READ_RECORD(.SMQ_N); 
3 $soe 3316 5 
3; 2290 3317 5 
3: 2291 3318 5 ! Ensure that the record is a queue header that is connected to this 
5 $536 3319 5§ ' stream. If it is, process the message. 
: 229 3320 § i | 
3 2294 3321 5 IF .SMQCSYM$B_TYPE] EQL SYM$K_SMQ 
3 2295 3322 5 AND .SMQCSMQS$C_STREAM_SCT] EQC .SCT | 
3: 2296 3323 5 AND .SMQCSMQ$B_STREAM_INDEX] EQL .MBXCSMBMSG$B8_STREAM_INDEX] 

; 2297 3324 5 THEN 
: 2298 3325 6 BEGIN 
3 2299 3326 6 PROCESS_SYMBIONT_MESSAGE(.SMQ_N, .SMQ, .SCT); 

; 2300 3327 6 REWRITE-RECORD(.SMQ_N); 

: 2301 3328 5 END; 

3 $308 $362 5 
3; 230 330 5 
> 2304 331 5 UNLOCK_QUEUE_FILE(); | 
3 2305 336 4 END; 

5 $08 333 4 RETURN; 
3: 2307 334 3 END; 
3; 2308 HE 
3; 2309 336 
3 2310 337 SCT = .SCTCSCT_L_FLINK); 

3 2311 338 2 END; | 
3 31g 339 
3 231 340 ; | 
3 sie rt The PID was not found in the symbiont control table. 
: 2316 3348 SIGNAL (JBC$_INVMSG OR STS$K_ERROR); | 
3; 2317 344 1 END; 
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MBX, RO 
8(SCT), -4(RO) 
7$ 


» 4(SCT) 
60(SCT)CROJ, SMQ_N 
#0, LOCK_QUEUE_FILE 


M 
#1, READ_RECORD 
4(SMQ), 6 


6$ 
252(SMQ), SCT 
6$ 


MBX, R1 

279(SMQ), 3(R1) 
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#3, PROCESS_SYMBIONT_MESSAGE 


#1, REWRITE RECORD 
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H 13 ri ! GLOBAL ROUTINE SYMBIONT_DELETION: NOVALUE= 

: 2301 23 1 t+ 

; ¢ re 1! 

: 49 1 ! FUNCTIONAL DESCRIPTION: 

: ¢ 29 ! This routine checks for and processes the deletion of a symbiont. | 
$ 6 26 1 ! INPUT PARAMETERS: 

; 7 a3 1! NONE 
Ps 8 54 1! | 
; 4 55 1 ! IMPLICIT INPUTS: 
3 0 328 7% NONE 
: 1 a noe 
: 2332 338 1 | OUTPUT PARAMETERS: 

4 3 59 1! NONE | 
; 2334 geen 1! 
5 $32 361 1°! IMPLICIT OUTPUTS: 
: 2336 $308 7 NONE | 
: 2337 $30 1! 

; 2338 364 1 ! ROUTINE VALUE: 

; 2339 3365 1 NONE | 
3: 2340 3366 1! 

3 2341 3367 1 ! SIDE EFFECTS: | 
$ seeg 3368 1! NONE 
3; 234 3252 1! 
> 2344 3370 1 !<- 
; tak 3371 1 

> 2346 3372 2 BEGIN | 
3: 2347 37 LOCAL 
; 2348 3374 PREV, ! Pointer to predecessor of SCT 

3; 2349 3375 SCT: REF BBLOCK, ! Pointer to symbiont control table 
; 2350 3376 SJH_N, ! Record number of SJH 
: 2351 3377 SJH: REF BBLOCK, ' Pointer to SJH 

3 326 3378 SMQ_N, ' Record number of SMQ 
; 235 $307 SMQ: REF BBLOCK; ' Pointer to SMQ 

3 2354 380 
3; 2355 eee! 
3; 2356 386 PREV = SYMBIONT_CONTROL; 
3: 2357 338 SCT = ..PREV; 
: 338 384 2 WHILE .SCT NEQ 0 DO 
3 2359 385 BEGIN 
> 2360 86 IF .SCTCSCT_L_PIDJ EQL .MBXCACMSL_PID) | 
3: 2361 387 THEN 

3 306 $85 ? BEGIN 

3 re) 390 2 If this process deletion is unexpected, do extra processing. 

; 366 : 4 if (.SCTCSCT_L_BITMAP] AND NOT .SCTCSCT_L_RESETTING]) NEQ 0 | 
3; 2368 2 BEGIN 

3 2369 
; $59 5 Signal a message. 

: 38 3 satay oe 1) SYMDEL + STSSK_WARNING, 0 

; $74 ; (.MBXCACMSL_FINALSTS) AND NOT STS$M_INHIB_MSG) ); 

: 2375 


«< 
we 
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<u“ 


Stop all queues being served by this symbiont. 
iNCR I FROM O TO 31 DO 
BEG 


SMQ_N = .VECTORCSCTCSCT_L_QUEVES], .1); 
eis MQ_N NEQ 0 


ONT 

4-000 

3; 237 40 

: 3 rt 

3 7 404 

: 237 405 6 

3 0 8 6 

: 1 4 6 

3 fi 408 8 

3 S7 409 BEGIN 

3 410 7 SMQ = READ_RECORD(.SMQ_N); 

>; 2385 411 7 

: He] tig 7 

3 44 $1? If a request is pending, send a response. 
; 89 415 7 IF = SMQ$V_PAUSING] 

3; 2390 218 7 OR .SMQCSMQ$SV— RESETTING) 

3 $33 41 7 OR et SMQSV— _RESUMING) 

gs @ 4 418 7 OR .SMQCSMQ$SV— STARTING) 

3; 239 3419 7 OR * Sha SMQSV— STOPPING) 

3: 2394 3420 7 EN 

3; 2395 $053 7 SCAN_INCOMPLETE SERVICES ( 

: $338 34 ¢ 7 THR -no re MBIONT, 

3; 2397 3425 7 " > «9MQ, 

; 2398 3424 7 

; 2399 3405 7 S6CS_SYMDEL + STS$K_ERROR); 
; 2400 = 6 7 

; 2601 427 7 
3 240 3428 7 ! ! Stop the queue. 

3; 240 3429 7 
; 2404 3430 7 éma SMQ$L mt S¢T} = 0; 

3 2405 3431 7 SMQCSMQSL~— Tus] = 0; 
+ 2406 3432 7 smatSMasV— STOPPED) = TRUE; 
: rn t4 433 7 
: 2408 3434 7 
3; 2409 3435 7 ' Rewrite the SMQ record. 
; 2410 3436 7 : 
3 2411 3437 7 REWRITE_RECORD(.SMQ_N); 
3 2412 3438 g END; 
: 2415 3439 END; 
: 2414 3440 5 
> 2415 3441 5 ; é 
5 sui$ tee ; Requeue current jobs on all queues being served by this symbiont. 
; 2618 444 5§ INCR I FROM 0 TO 31 DO 

3 2619 445 6 BE 

: 2420 446 6 SMQ_N = .VECTORCSCTCSCT_L_QUEUES], .1]; 
: $¢ 1 447 6 IF .SMQ_N NEQ 0 

: 24 § 448 6 THEN 

3: 24 449 7 BEGIN 

3 2424 450 7 SMQ = READ_RECORD(.SMQ_N); 

3: 2425 451 7 

: 2426 re 7? eae : 
3 tsi ter 4 Requeue the current job if there is one. 
: 4¢9 455 7 SJH_N = .SMQCSMQS$L_CURRENT_LIST); 

> 26 456 ? IF [SJH_N NEQ 0 

: 2431 457 7 N 

3: 2432 458 8 BEGIN 
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3; 2433 459 SJH_= READ_RECORD(.SJH_N); 
: 2434 460 5 S SHES NEY SYSTEM FAILURE] = TRUE; 
: 2435 461 8 UPDATE _GETQUI_DATA(.SJH_N, .SJH); 
3; 24356 462 8 COMPLETE _JOB( 
3 2437 463 8 SJH-N, .SJH, .SMQ, 
> 2438 464 8 6 
> 2439 465 8 JBC$_S pSEMPEL 0 OR STS$k <ERROR) ; 
3; 2440 466 8 SMQCSMQSC AT 
3 Stes 467 8 SMQCSMQ$L~ CURRENT ist END = ©; 
; aug 3468 8 SMOLSMOSB— pURREnT “+O Count] = 6; 
3 244 3469 7 END; 
H site 470 7 
3 2445 471 7 
; 2446 aef6 7 ! Rewrite the SMQ record. 
: 2447 3475 7 ' 
3 2448 3474 7 REWRITE _RECORD(.SMQ_N); 
3; 2449 3475 6 END; 
; 2450 3476 5 END; 
3 2451 3477 & END; 
H sig 3478 4 
; 245 3479 & 
3 2454 3480 4 ! Deassign the channel to the symbiont mailbox if one has been 
3: 2455 3481 4 i assigned. 
3; 2456 3482 4 i 
3 2457 3483 4 IF .SCTCSCT_W_MAILBOX] NEQ 0 
; 2458 3484 4 
> 2459 3485 4 SDASSGN(CHAN=.SCTCSCT_W_MAILBOX]); 
3; 2460 3486 4 
3; 2461 3487 4 
: 2462 3488 4 ' Finally, release the SCT entry. 
3 2465 3489 4 ! 
3; 2464 3490 4 PREV -SCTCSCT bE AMR: 
3; 2465 3491 4 DEALLOCATE MEMORY (- 
3: 2466 3492 & QUEUE E REFERENCE TCOUNT = -QUEUE_REFERENCE_COUNT - 1; 
3; 2467 3493 4 EXITLOOP; 
: 2468 3494 3 3 
3: 2469 3495 3 
3; 2470 3496 3 
3: 2471 3497 3 ! Advance to next. 
3: 2472 3498 3 ! 
3: 2473 3499 3 PREV = .SCT; 
3 2474 3500 3 SCT = ..PREV; 
3: 2475 3501 2 END; 
3: 2476 3502 1 END; 
OFFC 00000 ENTRY SB ROONTO CAT oot Save R2,R3,R4,R5,R6,R7,- ; 3345 
58 000000006 EF 9E 00002 MOVAB READ RECORD. R11 F 
5A 00000000° EF 9E 00009 MOVAB SYMBIONT CONTROL, PREV : ; 8 
53 6A 08 300 1$ MOVL (PREV), SCT : 338 
01 12 0001 BNEQ 2$ ; 3384 
04 aed RET : 
50 00000000" EF DO 00016 2$: MOVL MBX, RO ; 3386 
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y0s-000 Hae 1 LE JOBCTL.SRCJS S¥MB) ONT. 633.1 
28 AD 08 A¥ 01 00010 CHPL (SCT), 40¢RO) 
0 13 0022 BEQL $ 
OOF? 31 00024 BRW 14$ 
51 10 A Dg 0027 3$: MCOML 16(SCT), R1 
51 OC A’ D3 000208 BITL ‘2(SCT), R1 
03 12 90 F BNEQ = 4$ 
00¢7 31 00031 BRW 12$ 
7E 4C a0 10000000 &F CB 00034 4$ BICL3 4268435456, 76(RO), -(SP) 
E D4 0003D CLRL = = (SP) 
00048468 BF DD 0003 PUSHL #296040 
000000006 00 03 FB 00045 CALLS #3, LIBSSIGNAL 
57 3c Oo ABO 00046 MOVAB 60(SCT), R7 
54 04 0005 CLRL oI 
S68 6744 D9 00052 5$ MOVL (R7)CIJ, SMQ_N 
48 1 90056 BEQL 8$ 
56 DD 0005 PUSHL  SMQ_N 
68 01 FB O005A CALLS #1, READ_RECORD 
55 50 D0 0005D MOVL RO. SMQ 
52 10 AS 9E 00060 MOVAB 16(SMQ), R2 
10 62 03 £0 00064 BBS #3, (R25, 6$ 
0c 62 05 £0 00068 BBS #5. (R2), 6$ 
08 62 06 £0 0006C BBS #6, (R2). 6$ 
04 01 A2 €E8 00070 BLBS 1(R2), 6$ 
15 62 OA £1 00074 BBC #10, (R2), 7% 
0004846A 8F DD 00078 6$ PUSHL #296042 
7E D4 0007E CLRL. = (SP) 
55 DD 00080 PUSHL SmMQ 
56 DD 00082 PUSHL  SMQ_N 
02 DD 00084 PUSHL 
000000006 _ EF 05 FB 00086 CALLS #5, SCAN_INCOMPLETE_SERVICES 
OorFc C5 04 0008D 7$: CLRL 252(¢5Ma) 
62 D4 00091 CLRL. — (R2) 
01 = A2 02 88 00093 BISB2 #2. 1(R2) 
56 DD 00097 PUSHL 
000000006 EF 01 FB 00099 CALLS “Rewer _RECORD 
AE 54 1F £3 OOOAO 8$: AOBLEQ #3 * 
54 D4 OOOA4 CLRL 
56 6744 DO 000A6 9S: MOVL Lense SMQ_N 
4B 13 OOOAA BEQL 11$ 
56 DD OOOAC PUSHL SMQ_N 
6B 01 FB OOOAE CALLS #1, READ_RECORD 
55 50 DO 00081 MOVL R SMQ 
59 48 AS D9 000B4 MOVL  72(SMQ), SJH_N 
34 1 00088 BEQL  10$ 
9 DD OOOBA PUSHL SJH_N 
6B 4 FB OOOBC CALLS #1, READ_RECORD 
ce 0 DO 000BF MOVL RO. S 
11. AB 40 8F 88 000C BISB2 #64, 17(SJH) 
58 DD 000C PUSHL  SJH 
59 DD 000C9 PUSHL SJH_N 
000000006 EF 2 FB 000CB CALLS ae UPDATE_GETQUI_DATA 
0004846A 8F DD 900¢ PUSHL #296042 
E D4 990 CLRL. = (SP) 
2 DD 8° DA PUSHL SMQ 
8 DD 000DC PUSHL  SJH 
59 DD OOODE PUSHL SJH_N 
000000006 EF 05 FB 000EO CALLS #5,~COMPLETE_JOB 
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; 2478 503 1 GLOBAL ROUTINE DELETE_SYMBIONTS: NOVALUE= 
3 2479 504 1 
; 2480 505 1 !+4 
3; 2481 208 1! 
3: 248 50 1 ! FUNCTIONAL DESCRIPTION: 
3; 248 508 1! his routine deletes all symbiont processes just before the job 
3 Stee 208 : } controller restarts itself after a fatal error. 
; 2486 511 1°! INPUT PARAMETERS: 
: 2487 216 1! NONE 
: 2488 3513 1! 
; 2489 3218 1 ! IMPLICIT INPUTS: 
: 2490 Ne. eS NONE 
3; 2491 3516 1! 
3; 249 3517 1 =! OUTPUT PARAMETERS: 
3; 249 3518 1! NONE 
3: 2494 3519 1! 
3: 2495 3259 1 ! IMPLICIT OUTPUTS: 
> 2496 3521 1! NONE 
3; 2497 $256 1! 
: 2498 3523 1 ! ROUTINE VALUE: 
3; 2499 35246 1! NONE 
; 2500 3525 1! 
3; 2501 3526 1 ! SIDE EFFECTS: 
; 2502 3527 1! NONE 
; 2503 3528 1! 
3 2504 HT 1 !-- 
; 2505 3530 1 
: 2506 3531 2 BEGIN 
: 2507 3532 2 LOCAL } 
3; 2508 3533 2 SCT: REF BBLOCK; ! Pointer to symbiont control table 
: 2509 3534 2 
: 2510 3535 2 
3; 2511 3536 SCT = .SYMBIONT_CONTROL; 
: 2512 3537 WHILE .SCT NEQ 0 DO 
> 2513 3538 BEGIN 
3 2514 3539 3 SDELPRC(PIDADR=SCTCSCT_L_PIDJ); 
> 2515 3540 3 SCT = .SCTCSCT_L_FLINKI; 
3: 2516 3541 2 END; 
3 2517 3542 1 END; 
-EXTRN SYSSDELPRC 
0004 00000 -ENTRY DELETE_SYMBIONTS, Save R2 
52 00000000" EF 00 00002 MOVL SYMBIONT_CONTROL, SCT 
11 13 00009 1$ BEQL es 
7E D4 00008 CLRL -(SP) 
08 <A2 9F 0000D PUSHAB 8(SCT) 
000000006 00 Os FB 09010 CALLS #2, SYSSDELPRC 
52 62 DO 00017 MOVL (SCT), SCT 
ED 11 Bote BRB 1$ 
04 0001C 2% RET 
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GLOBAL ROUTINE SYMBIONT_COMPLETED_BLOCKS(SJH)= 


ves 


ROUTINE VALUE: 
Number of completed blocks, or 0 if indeterminate. 


SIDE EFFECTS: 
NONE 


529 
0 
1 
5 ¢ ! 
5 ! FUNCTIONAL DESCRIPTION: 
524 : This routine analyzes the 4 ie entry for a job and returns the 
2 2 number of completed blocks in the current file. 
527 i INPUT PARAMETERS: 
: SJH - Pointer to SJH. 
0 i IMPLICIT INPUTS: 
1 NONE 
: i OUTPUT PARAMETERS: 
$e NONE 
i IMPLICIT OUTPUTS: 
: NONE 
i 


SJH: REF BBLOCK; ! Pointer to SJH 


! If the checkpoint is short enough to fit into the main area, and the 
! structure level is correct, then return the first longword of the user 
key, which is known to be the current VBN. 
If ,BBLOCKLSJHCSJHST_CHECKPOINT3, FVDF_LENGTH] LEQU SJH$S_CHECKPOINT=2 
BEGIN 
BIND 
CKP = BBLOCKCSJHCSJH$T_CHECKPOINT], FVDF_DATA] : BBLOCK; 


IF .CKPCSMBMSG$B_CHECKPOINT_LEVEL] EQL SMBMSGSK_STRUCTURE_LEVEL 
enp :RETURN . (CKPL SMBMSG$Q_USER_KEY]); 


: Unknown checkpoint, or none stored -- return 0. 
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32 bytes, 


3; Routine Size: 


SYMBIONT Symbiont communication 

voer000 : 

; 3524 597 1 END 

: 2575 598 0 ELUDOM 

: PSECT SUMMARY 

; Name Bytes 

: COMMON 5024 NOVEC, 

: CODE 4056 NOVEC.NOWRT. RD; 
: Library Statistics 

Be SO esctal gee ee ao Symbols 
: File Total idaded 
> _$255$DUA28:CSYSLIBILIB.L32;1 18619 178 


WRT, RD ,NOEXE,NOSHR, 1 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SYMBIONT/OBJ=OBJ$:SYMBIONT MSRC$:SYMBIONT/UPDATE=(ENH$:SYMBIONT) 


wre endo + 5114 data bytes 


un Time : 
i phiny Tine: 04:11.7 


Lines/CPU Min: 


324 5 
Lexemes/CPU-Min: 35206 
Memory Used: 
compile 


653 pages 
tion Complete 


-EXTRN LIBSSIGNAL 


Attributes 


CL, REL, OVR,NOPI 
CL, REL, CON,NOPI 


an 


EXE ,NOSHR, 


eecesece Pages Processing 
Percent Mapped me 
0 1000 00:01.4 
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